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
