![]() |
#2
chen35232014-12-12 20:39
|
Private Sub Command2_Click()
Form_Load
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Option1.Value = True
Option2.Value = False
Option3.Value = True
Option4.Value = False
Option5.Value = False
Option6.Value = True
Option7.Value = False
Option8.Value = False
For i = 0 To 3
Check1(i).Value = 0
Next i
Label3.Caption = ""
Image1.Picture = LoadPicture()
End Sub