Vb, Game Sederhana

Form 1:

Code:
Private Sub Command1_Click()
Form1.Show
End Sub

Form 2:

Code:
Private Sub Form_Load()
P1 = InputBox("Silahkan Masukkan Nama Kamu 'Player1'", "Masukkan Nama", "DewiSulis")
P2 = InputBox("Silahkan Masukkan Nama Kamu 'Player2'", "Masukkan Nama", "Tina")
Label5.Caption = P1 & " , Player 1"
Label6.Caption = P2 & " , Player 2"
Check1.Value = vbChecked
Label3.Caption = "0"
Label4.Caption = "0"
End Sub
Private Sub Cmd1_Click(Index As Integer)
If Check1.Value = vbChecked Then
cmd1(Index).Caption = "X"
Check1.Value = vbUnchecked
ElseIf Check1.Value = vbUnchecked Then
cmd1(Index).Caption = "Y"
Check1.Value = vbChecked
End If
If cmd1(0).Caption = "Y" And cmd1(1).Caption = "Y" And cmd1(2).Caption = "Y" Or cmd1(o).Caption = "X" And cmd1(1).Caption = "X" And cmd1(2).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""


ElseIf cmd1(0).Caption = "Y" And cmd1(3).Caption = "Y" And cmd1(6).Caption = "Y" Or cmd1(0).Caption = "X" And cmd1(3).Caption = "X" And cmd1(6).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""


ElseIf cmd1(0).Caption = "Y" And cmd1(4).Caption = "Y" And cmd1(8).Caption = "Y" Or cmd1(0).Caption = "X" And cmd1(4).Caption = "X" And cmd1(8).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""


ElseIf cmd1(1).Caption = "Y" And cmd1(4).Caption = "Y" And cmd1(7).Caption = "Y" Or cmd1(1).Caption = "X" And cmd1(4).Caption = "X" And cmd1(7).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""


ElseIf cmd1(3).Caption = "Y" And cmd1(4).Caption = "Y" And cmd1(5).Caption = "Y" Or cmd1(3).Caption = "X" And cmd1(4).Caption = "X" And cmd1(5).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""


ElseIf cmd1(6).Caption = "Y" And cmd1(7).Caption = "Y" And cmd1(8).Caption = "Y" Or cmd1(6).Caption = "X" And cmd1(7).Caption = "X" And cmd1(8).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""


ElseIf cmd1(2).Caption = "Y" And cmd1(4).Caption = "Y" And cmd1(6).Caption = "Y" Or cmd1(2).Caption = "X" And cmd1(4).Caption = "X" And cmd1(6).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""

ElseIf cmd1(2).Caption = "Y" And cmd1(4).Caption = "Y" And cmd1(6).Caption = "Y" Or cmd1(2).Caption = "X" And cmd1(4).Caption = "X" And cmd1(6).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""

ElseIf cmd1(2).Caption = "Y" And cmd1(5).Caption = "Y" And cmd1(8).Caption = "Y" Or cmd1(2).Caption = "X" And cmd1(5).Caption = "X" And cmd1(8).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""

ElseIf cmd1(0).Caption = "Y" And cmd1(4).Caption = "Y" And cmd1(8).Caption = "Y" Or cmd1(0).Caption = "X" And cmd1(4).Caption = "X" And cmd1(8).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""
End If
If Label3.Caption >= 5 Or Label4.Caption >= 5 Then
MsgBox "Congratulation..!! You Won...", vbOKOnly
End If
End Sub
Private Sub berhenti_Click()
If MsgBox("Apakah Kamu Akan Berhenti Bermain game ini???") Then
End
End If
End Sub