' [456.xls]



' [Module1] のコード
'★★☆　Click、DblClickイベント　☆★★

Option Explicit

Sub start()

    UserForm1.Show

End Sub


' [UserForm1] のコード
Option Explicit

Dim i As Integer

Private Sub UserForm_Click()

    Me.Caption = """クリック"" しました"
    
        If i < 226 Then
            i = i + 30
        Else
            i = 0
        End If
        
    Me.BackColor = RGB(0, 255 - i, 255 - i)
    
End Sub

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    Me.Caption = """ダブルクリック"" しました"
    
        If i < 226 Then
            i = i + 30
        Else
            i = 0
        End If

    Me.BackColor = RGB(i, i, 0)
    
End Sub

Private Sub UserForm_Initialize()

    Me.Caption = "ユーザーフォームを""クリック"" Or ""ダブルクリック""して下さい"

End Sub