Option Explicit

'高速でちょっと変わった効果を使います

Private Sub Form_Load()
    HScroll1_Scroll
End Sub

Private Sub HScroll1_Change()
    HScroll1_Scroll
End Sub

Private Sub HScroll1_Scroll()
    Dim Ope As Long 'ﾗｽﾀｵﾍﾟﾚｰｼｮﾝ代入変数
    Dim BColor As Long
    
     'ﾗｽﾀｵﾍﾟﾚｰｼｮﾝ代入
    If Option1.Value Then
        Ope = vbSrcInvert
    ElseIf Option2.Value Then
        Ope = vbSrcAnd
    ElseIf Option3.Value Then
        Ope = vbSrcPaint
    End If
    
    Picture3.Picture = Picture1.Picture '元の画像をPicture3にｺﾋﾟｰする
    
    'Picture2の背景色を変える
    BColor = HScroll1.Value
    Picture2.BackColor = RGB(BColor, BColor, BColor)
    
    'Picture3に指定されたﾗｽﾀｵﾍﾟﾚｰｼｮﾝで画像をｺﾋﾟｰする
    Picture3.PaintPicture Picture2.Image, 0, 0, , , , , , , Ope
    Picture3.Refresh '強制的に描く
    
End Sub

Private Sub Option1_Click()
    HScroll1_Scroll
End Sub

Private Sub Option2_Click()
    HScroll1_Scroll
End Sub

Private Sub Option3_Click()
    HScroll1_Scroll
End Sub