怎么用VB精简版编写小游戏

Private Sub Command0_Click()

Dim x   As String

x = ●

If Command2.Caption = x Then

Command2.Caption = ○

Else

Command2.Caption = ●

End If

If Command4.Caption = x Then

Command4.Caption = ○

Else

Command4.Caption = ●

End If

If Command6.Caption = x Then

Command6.Caption = ○

Else

Command6.Caption = ●

End If

If Command8.Caption = x Then

Command8.Caption = ○

Else

Command8.Caption = ●

End If

End Sub

Private Sub Command1_Click()

Dim x   As String

x = ●

If Command8.Caption = x Then

Command8.Caption = ○

Else

Command8.Caption = ●

End If

If Command2.Caption = x Then

Command2.Caption = ○

Else

Command2.Caption = ●

End If

If Command0.Caption = x Then

Command0.Caption = ○

Else

Command0.Caption = ●

End If

End Sub

Private Sub Command2_Click()

Dim x   As String

x = ●

If Command0.Caption = x Then

Command0.Caption = ○

Else

Command0.Caption = ●

End If

If Command1.Caption = x Then

Command1.Caption = ○

Else

Command1.Caption = ●

End If

If Command3.Caption = x Then

Command3.Caption = ○

Else

Command3.Caption = ●

End If

End Sub

Private Sub Command3_Click()

Dim x   As String

x = ●

If Command0.Caption = x Then

Command0.Caption = ○

Else

Command0.Caption = ●

End If

If Command2.Caption = x Then

Command2.Caption = ○

Else

Command2.Caption = ●

End If

If Command4.Caption = x Then

Command4.Caption = ○

Else

Command4.Caption = ●

End If

End Sub

Private Sub Command4_Click()

Dim x   As String

x = ●

If Command0.Caption = x Then

Command0.Caption = ○

Else

Command0.Caption = ●

End If

If Command3.Caption = x Then

Command3.Caption = ○

Else

Command3.Caption = ●

End If

If Command5.Caption = x Then

Command5.Caption = ○

Else

Command5.Caption = ●

End If

End Sub

Private Sub Command5_Click()

Dim x   As String

x = ●

If Command0.Caption = x Then

Command0.Caption = ○

Else

Command0.Caption = ●

End If

If Command4.Caption = x Then

Command4.Caption = ○

Else

Command4.Caption = ●

End If

If Command6.Caption = x Then

Command6.Caption = ○

Else

Command6.Caption = ●

End If

End Sub

Private Sub Command6_Click()

Dim x   As String

x = ●

If Command0.Caption = x Then

Command0.Caption = ○

Else

Command0.Caption = ●

End If

If Command5.Caption = x Then

Command5.Caption = ○

Else

Command5.Caption = ●

End If

If Command7.Caption = x Then

Command7.Caption = ○

Else

Command7.Caption = ●

End If

End Sub

Private Sub Command7_Click()

Dim x   As String

x = ●

If Command0.Caption = x Then

Command0.Caption = ○

Else

Command0.Caption = ●

End If

If Command6.Caption = x Then

Command6.Caption = ○

Else

Command6.Caption = ●

End If

If Command8.Caption = x Then

Command8.Caption = ○

Else

Command8.Caption = ●

End If

End Sub

Private Sub Command8_Click()

Dim x   As String

x = ●

If Command0.Caption = x Then

Command0.Caption = ○

Else

Command0.Caption = ●

End If

If Command7.Caption = x Then

Command7.Caption = ○

Else

Command7.Caption = ●

End If

If Command1.Caption = x Then

Command1.Caption = ○

Else

Command1.Caption = ●

End If

End Sub

Private Sub yun_Click()

If Command0.Caption = x & Command1.Caption = x And Command2.Caption = x And Command3.Caption = x And Command4.Caption = x And Command5.Caption = x And Command6.Caption = x And Command7.Caption = x And Command8.Caption = x Then

Label2.Caption = 成功了~~~~！！！祝贺啊！！！

Else

Label2.Caption = 又没完成！乱点个嘛啊。。

End If

End Sub