1.オブジェクト(object)

Private Sub CheckBox1_Change()
  Dim CheckValue
  CheckValue = CheckBox1.Value
  MsgBox CheckValue
End Sub

Private Sub UserForm_Initialize()
  with ComboBox1
       .AddItem "AAAA"
       .AddItem "BBBB"
       .AddItem "CCCC"
  End With
End Sub

Private Sub ComboBox1_Change()
  Dim ComboValue As String
  ComboValue = ComboBox1.Value
  MsgBox ComboValue
End Sub

Private Sub CommandButton1_Click()
  MsgBox "CommandButton1がClickされました"
End Sub

Private Sub UserForm_Initialize()
  Image1.Picture=LoadPicture("\xxxxx\xxxxx\imageX.JPG")
End Sub

Private Sub ListBox1_Click()
  Dim selectValue As String
  selectValue = ListBox1.Value
  MsgBox selectValue
End Sub

Private Sub UserForm_Click()
  If OptionButton1.Value = True Then
     MsgBox "１が選択されています"
  ElseIf OptionButton2.Value = True Then
     MsgBox "２が選択されています"
  Else
     MsgBox "どちらも選択されていません"
  End If
End Sub

Private Sub ScrollBar1_Scroll()
  Dim x As Integer
  x = ScrollBar1.Value
  Label1.Caption = x
End Sub

Private Sub SpinButton1_Change()
  Label1.Caption = SpinButton1.Value
End Sub

Private Sub TabStrip1_Change()
  Label1.Caption = TabStrip1.Value
End Sub

Private Sub ToggleButton1_Change()
  Dim YN As Boolean
  YN = ToggleButton1.Value
  If YN = True Then
     ToggleButton2.Value = False
  Else
     ToggleButton2.Value = True
  End If
End Sub