Dim x

Private Sub pctDado_Click()


End Sub


Private Sub Timer1_Timer()
Timer1.Interval = HScroll1.Value

x = x + 1


Select Case x
Case 1
pctDado.Picture = LoadPicture("C:\IMAGES\Moon1.jpg")
Case 2
pctDado.Picture = LoadPicture("C:\IMAGES\Moon2.jpg")
Case 3
pctDado.Picture = LoadPicture("C:\IMAGES\Moon3.jpg")
Case 4
pctDado.Picture = LoadPicture("C:\IMAGES\Moon4.jpg")
Case 5
pctDado.Picture = LoadPicture("C:\IMAGES\Moon5.jpg")
Case 6
pctDado.Picture = LoadPicture("C:\IMAGES\Moon6.jpg")
Case 7
pctDado.Picture = LoadPicture("C:\IMAGES\Moon7.jpg")
Case 8
pctDado.Picture = LoadPicture("C:\IMAGES\Moon8.jpg")
End Select
If x = 8 Then x = 0
End Sub

Dim x(5)


Private Sub Command1_Click()
Randomize Timer
For n = 0 To 5


saca:
a = Int(Rnd * 48 + 1)
For k = 0 To 5
If x(k) = a Then GoTo saca
Next k


x(n) = a
Next n


For i = 0 To 5
Text1(i) = x(i)
Next i
End Sub

Dim T1, T2, T3, N


Private Sub Command1_Click()
Text1.Text = N
T1 = Timer
Command2.Enabled = True
N = 0
End Sub



Private Sub Command2_Click()
N = N + 1
Text1.Text = N
T2 = Timer
T3 = T2 - T1
If T3 > 20 Then Command2.Enabled = False
End Sub

Dim n

Private Sub Command1_Click()
Timer1.Interval = 0
If Val(Text1.Text) = n Then Text2.Visible = True
End Sub

Private Sub Command2_Click()
Timer1.Interval = HScroll1.Value
Text2.Visible = False
k = Val(Text1.Text)
If k < 0 Or k > 5 Then l = MsgBox("Numero no valido", vbOKOnly, "No válido")
End Sub

Private Sub Form_Load()
Text2.Visible = False
End Sub

Private Sub Timer1_Timer()

Shape2(n).FillColor = QBColor(10)
If n = 0 Then
Shape2(5).FillColor = QBColor(0)
Else
Shape2(n - 1).FillColor = QBColor(0)
End If
n = n + 1
If n = 6 Then n = 0

End Sub

Dim x


Private Sub Boton1_Click()
If x = 1 Then
Form1.BackColor = QBColor(12)
Else
Boton1.Enabled = False
End If
End Sub

Private Sub Boton2_Click()
If x = 2 Then
Form1.BackColor = QBColor(12)
Else
Boton2.Enabled = False
End If
End Sub

Private Sub Boton3_Click()
If x = 3 Then
Form1.BackColor = QBColor(12)
Else
Boton3.Enabled = False
End If
End Sub

Private Sub Boton4_Click()
If x = 4 Then
Form1.BackColor = QBColor(12)
Else
Boton4.Enabled = False
End If
End Sub

Private Sub Boton5_Click()
If x = 5 Then
Form1.BackColor = QBColor(12)
Else
Boton5.Enabled = False
End If
End Sub

Private Sub Boton6_Click()
If x = 6 Then
Form1.BackColor = QBColor(12)
Else
Boton6.Enabled = False
End If
End Sub

Private Sub Command1_Click()
Form1.BackColor = QBColor(8)
Boton1.Enabled = True
Boton2.Enabled = True
Boton3.Enabled = True
Boton4.Enabled = True
Boton5.Enabled = True
Boton6.Enabled = True
Randomize Timer
x = Int(Rnd * 6) + 1

End Sub

Dim h, v

Private Sub Form_KeyPress(KeyAscii As Integer)
' Tecla b y Tecla c
If KeyAscii = 98 Then Command1.Top = Command1.Top + 100
If KeyAscii = 99 Then Command1.Top = Command1.Top - 100
End Sub


Private Sub Form_Load()
h = 100
v = 100
End Sub


Private Sub Timer1_Timer()
Option1.Left = Option1.Left + h
Option1.Top = Option1.Top + v
If Option1.Left > Form1.Width Then h = h * (-1)
If Option1.Left < 0 Then h = h * (-1)
If Option1.Top > Form1.Height Then v = v * (-1)
If Option1.Top < 0 Then v = v * (-1)
End Sub