надо-бы дописать программу "кости"...

Private Sub qtimer()
Dim Кости, a, d, stav As Integer
stav = CDbl(Text2.Text)
PauseTime = 1
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Randomize
Кости = Int(Rnd * 6) + 1
Select Case Кость
Case 1
Label1.Caption = Label1.Caption + 1
Case 2
Label2.Caption = Label2.Caption + 1
Case 3
Label3.Caption = Label3.Caption + 1
Case 4
Label4.Caption = Label4.Caption + 1
Case 5
Label5.Caption = Label2.Caption + 1
Case 6
Label6.Caption = Label6.Caption + 1
End Select
Loop
If stav = Кость Then
Label15.Caption = Label15.Caption + 3
Else
Label15.Caption = Label15.Caption - 2
End If
End Sub

Private Sub Command1_Click()
stav = CDbl(Text2.Text)
Label18.Visible = False
If stav < 6 And stav > 0 Then
qtimer
Else
Label18.Visible = True
Label18.Caption = "Вы не сделали ставку!!!"
End If
Label19.Caption = Text1.Text + " Ваш выигрыш: "
End Sub

Private Sub Command2_Click()
PauseTime = 0
End Sub

Private Sub Command3_Click()
Label1.Caption = Empty
Label2.Caption = Empty
Label3.Caption = Empty
Label4.Caption = Empty
Label5.Caption = Empty
Label6.Caption = Empty
Label15.Caption = Empty
Label19.Caption = Empty
Text1.Text = Empty
Text2.Text = Empty
End Sub

Private Sub CommandButton4_Click()
End
End Sub