Private Sub Command1_Click()
 Label1.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
 Frame1.Caption = Text1.Text
End Sub

Private Sub Command3_Click()
 Label2.Caption = ""
 If Check1.Value = 1 Then Label2.Caption = "Check1 "
 If Check2.Value = 1 Then Label2.Caption = Label2.Caption & "Check2 "
 If Check3.Value = 1 Then Label2.Caption = Label2.Caption & "Check3 "
End Sub

Private Sub Command4_Click()
 List1.AddItem Text2.Text
End Sub

Private Sub Command5_Click()
 Combo1.AddItem Text2.Text
End Sub

Private Sub Command6_Click()
 List1.Clear
End Sub

Private Sub Command7_Click()
 Combo1.Clear
End Sub

Private Sub Command8_Click()
 Label3.Caption = ""
 Dim ix As Integer
 For ix = 0 To List1.ListCount - 1
  If List1.Selected(ix) Then Label3.Caption = Label3.Caption & List1.List(ix) & " "
 Next ix
End Sub

Private Sub Command9_Click()
 Label3.Caption = Combo1.Text
End Sub

Private Sub Command10_Click()
 Text3.Text = HScroll1.Value
End Sub

Private Sub Command11_Click()
 Text3.Text = VScroll1.Value
End Sub

Private Sub Command12_Click()
 HScroll1.Value = Val(Text3.Text)
End Sub

Private Sub Command13_Click()
 VScroll1.Value = Val(Text3.Text)
End Sub

Private Sub Command14_Click()
 Label4.Caption = 0
 Timer1.Interval = Val(Text4.Text)
End Sub

Private Sub Command15_Click()
 Timer1.Interval = 0
End Sub

Private Sub Command16_Click()
 Label2.Caption = ""
 If Option1.Value Then
  Label2.Caption = "Option 1"
 ElseIf Option2.Value Then
  Label2.Caption = "Option 2"
 ElseIf Option3.Value Then
  Label2.Caption = "Option 3"
 End If
End Sub

Private Sub Command17_Click()
frmAbout.Show vbModal
End Sub

Private Sub Command18_Click()
 frmAbout.Show
End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
 Label4.Caption = Val(Label4.Caption) + 1
End Subthis is txt file 