ถามโค้ดนี้หน่อย

คือเราจะให้มันรันได้อ่ะจะใส่ไรต่อดีอ่ะ
มั่วตั้งนานก้อไม่ออก-*-
กำลังหัดอ่ะนะ

Private Sub Command1_Click()
If Option1 = True Then
Command1.Caption = "X"
Option2 = True
Option1.Enabled = False
Option2.Enabled = True
Else
Command1.Caption = "O"
Option1 = True
Option2.Enabled = False
Option1.Enabled = True
checkO
checkX
result = Label1.Caption
End If

End Sub

Private Sub Command2_Click()
If Option1 = True Then
Command2.Caption = "X"
Option2 = True
Option1.Enabled = False
Option2.Enabled = True
Else
Command2.Caption = "O"
Option1 = True
Option2.Enabled = False
Option1.Enabled = True
checkO
checkX
result = Label1.Caption
End If

End Sub

Private Sub Command3_Click()
If Option1 = True Then
Command3.Caption = "X"
Option2 = True
Option1.Enabled = False
Option2.Enabled = True
Else
Command3.Caption = "O"
Option1 = True
Option2.Enabled = False
Option1.Enabled = True
checkO
checkX
result = Label1.Caption
End If
End Sub

Private Sub Command4_Click()
If Option1 = True Then
Command4.Caption = "X"
Option2 = True
Option1.Enabled = False
Option2.Enabled = True
Else
Command4.Caption = "O"
Option1 = True
Option2.Enabled = False
Option1.Enabled = True
checkO
checkX
result = Label1.Caption
End If
End Sub

Private Sub Command5_Click()
If Option1 = True Then
Command5.Caption = "X"
Option2 = True
Option1.Enabled = False
Option2.Enabled = True
Else
Command5.Caption = "O"
Option1 = True
Option2.Enabled = False
Option1.Enabled = True
checkO
checkX
result = Label1.Caption
End If
End Sub

Private Sub Command6_Click()
If Option1 = True Then
Command6.Caption = "X"
Option2 = True
Option1.Enabled = False
Option2.Enabled = True
Else
Command6.Caption = "O"
Option1 = True
Option2.Enabled = False
Option1.Enabled = True
checkO
checkX
result = Label1.Caption
End If
End Sub

Private Sub Command7_Click()
If Option1 = True Then
Command7.Caption = "X"
Option2 = True
Option1.Enabled = False
Option2.Enabled = True
Else
Command7.Caption = "O"
Option1 = True
Option2.Enabled = False
Option1.Enabled = True
checkO
checkX
result = Label1.Caption
End If
End Sub

Private Sub Command8_Click()
If Option1 = True Then
Command8.Caption = "X"
Option2 = True
Option1.Enabled = False
Option2.Enabled = True
Else
Command8.Caption = "O"
Option1 = True
Option2.Enabled = False
Option1.Enabled = True
checkO
checkX
result = Label1.Caption
End If
End Sub

Private Sub Command9_Click()
If Option1 = True Then
Command9.Caption = "X"
Option2 = True
Option1.Enabled = False
Option2.Enabled = True
Else
Command9.Caption = "O"
Option1 = True
Option2.Enabled = False
Option1.Enabled = True
checkO
checkX
result = Label1.Caption
End If
End Sub