Acensor 3(Por Lucas)

Private Sub boton1_Click()
asensor.Top = 6360
conteo.Caption = conteo.Caption + 1
c1.Caption = c1.Caption + 1
If asensor.Top = 6360 Then
boton1.Enabled = False
llamar1.Enabled = False
End If
If asensor.Top = 5040 And 3600 And 2400 And 1080 Then
boton1.Enabled = True
llamar1.Enabled = True
End If
End Sub
Private Sub boton2_Click()
asensor.Top = 5040
conteo.Caption = conteo.Caption + 1
c2.Caption = c2.Caption + 1
End Sub
Private Sub boton3_Click()
asensor.Top = 3600
conteo.Caption = conteo.Caption + 1
c3.Caption = c3.Caption + 1
End Sub
Private Sub boton4_Click()
asensor.Top = 2400
conteo.Caption = conteo.Caption + 1
c4.Caption = c4.Caption + 1
End Sub
Private Sub boton5_Click()
asensor.Top = 1080
conteo.Caption = conteo.Caption + 1
c5.Caption = c5.Caption + 1
End Sub
Private Sub enter_Click()
If tclave = "text2" Then
boton5.Enabled = True
Else
boton5.Enabled = False
End If
End Sub
Private Sub llamar1_Click()
asensor.Top = 7560
conteo.Caption = conteo.Caption + 1
c1.Caption = c1.Caption + 1
End Sub
Private Sub llamar2_Click()
asensor.Top = 5040
conteo.Caption = conteo.Caption + 1
c2.Caption = c2.Caption + 1
End Sub
Private Sub llamar3_Click()
asensor.Top = 3600
conteo.Caption = conteo.Caption + 1
c3.Caption = c3.Caption + 1
End Sub
Private Sub llamar4_Click()
asensor.Top = 2400
conteo.Caption = conteo.Caption + 1
c4.Caption = c4.Caption + 1
End Sub
Private Sub llamar5_Click()
asensor.Top = 1080
conteo.Caption = conteo.Caption + 1
c5.Caption = c5.Caption + 1
End Sub
Private Sub llamarpb_Click()
asensor.Top = 7800
conteo.Caption = conteo.Caption + 1
cpb.Caption = cpb.Caption + 1
End Sub
Private Sub llamarss_Click()
asensor.Top = 8880
conteo.Caption = conteo.Caption + 1
css.Caption = css.Caption + 1
End Sub
Private Sub luz_Click()
If asensor.BackColor = vbBlack Then
asensor.BackColor = vbYellow
Else
asensor.BackColor = vbBlack
End If
End Sub
Private Sub plantab_Click()
asensor.Top = 7800
conteo.Caption = conteo.Caption + 1
cpb.Caption = cpb.Caption + 1
End Sub
Private Sub play_Click()
boton1.Enabled = True
boton2.Enabled = True
boton3.Enabled = True
boton4.Enabled = True
plantab.Enabled = True
ss.Enabled = True
luz.Enabled = True
enter.Enabled = True
llamar1.Enabled = True
llamar2.Enabled = True
llamar3.Enabled = True
llamar4.Enabled = True
llamar5.Enabled = True
llamarpb.Enabled = True
llamarss.Enabled = True
End Sub
Private Sub ss_Click()
asensor.Top = 8880
conteo.Caption = conteo.Caption + 1
css.Caption = css.Caption + 1
End Sub
Private Sub stop_Click()
boton1.Enabled = False
boton2.Enabled = False
boton3.Enabled = False
boton4.Enabled = False
boton5.Enabled = False
plantab.Enabled = False
ss.Enabled = False
luz.Enabled = False
enter.Enabled = False
llamar1.Enabled = False
llamar2.Enabled = False
llamar3.Enabled = False
llamar4.Enabled = False
llamar5.Enabled = False
llamarpb.Enabled = False
llamarss.Enabled = False
End Sub