vb6 รบกวนดูโค้ดทอยลูกเต๋า ทีค่ะ

จากโค้ดนี้อ่ะค่ะ มันทำได้แค่สุ่มเลขสูงต่ำค่ะอยากใส่แบบค่าเงินได้ด้วยอะค่ะ เริ่มเงินให้100เล่นตาละ10เงินหมดจะออกจากเกมอะค่ะ


Private Sub Form1_Load()
End Sub
Option Explicit
Dim simbol As Integer

Private Sub Command1_Click()
If Option1.Value = False And Option2.Value = False And Option3.Value = False Then
MsgBox "กรุณาเลือก สูง กลาง ต่ำ ", vbInformation
End If
Randomize
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Do While Timer1.Enabled
DoEvents
Timer1_Timer
Loop
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
Timer1.Interval = 1000
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1 = Int(Rnd() * 6) + 1
Label2 = Int(Rnd() * 6) + 1
Label3 = Int(Rnd() * 6) + 1
Text1.Text = Int(Label1) + Int(Label2) + Int(Label3)
Select Case True
Case Option1.Value = True
If Int(Text1.Text) > 11 Then
Text2.Text = "ถูก"
Else
Text2.Text = "ผิด"
End If
Case Option2.Value = True
If Int(Text1.Text) = 11 Then
Text2.Text = "ถูก"
Else
Text2.Text = "ผิด"
End If
Case Option3.Value = True
If Int(Text1.Text) < 11 Then
Text2.Text = "ถูก"
Else
Text2.Text = "ผิด"
End If
End Select
End Sub