Option Explicit
Private Sub Form_Load()
Print "1"
End Sub
Private Sub Command1_Click(Index As Integer)
Dim food1, food2, food3, food4
Dim drink As String
Dim egg As String
Dim subfood As String
Dim ck_chick As Integer
Dim ck_beef As Integer
Dim ck_pork As Integer
Dim ck_fish As Integer
ck_chick.Value = 0 
ck_beef.Value = 0
ck_pork.Value = 0
ck_fish.Value = 0
If ck_chick.Value = 1 Then food1 = "雞扒"
End If
If ck_beef.Value = 1 Then food2 = "牛扒"
End If
If ck_pork.Value = 1 Then food3 = "豬扒"
End If
If ck_fishValue = 1 Then food4 = "魚柳"
End If
If ck_chick.Value = 0 And ck_beef.Value = 0 _
And ck_pork.Value = 0 And ck_fish.Value = 0 _
Then MsgBox = "請選一款"
End If
End Sub
Private Sub Command2_Click(Index As Integer)
Form_Load
End Sub
Private Sub Command3_Click(Index As Integer)
Unload Me
End
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
ck_check1.Value = 0
ck_check2.Value = 0
ck_check3.Value = 0
ck_check4.Value = 0
End Sub
Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)
opt_option1.Value = False
opt_option2.Value = False
opt_option3.Value = False
opt_option4.Value = False
End Sub
Private Sub Frame3_DragDrop(Source As Control, X As Single, Y As Single)
opt_option5.Value = False
opt_option6.Value = False
opt_option7.Value = False
End Sub
Private Sub Frame4_DragDrop(Source As Control, X As Single, Y As Single)
opt_option8.Value = False
opt_option9.Value = False
opt_option10.Value = False
End Sub
 

 Unload Me

 Unload Form2
Unload Form3