Visual Basic (Por Sabri)

Private Sub boton1_Click()
acensor.Top = "3600"
End Sub
Private Sub boton2_Click()
acensor.Top = "2760"
End Sub
Private Sub boton3_Click()
acensor.Top = "1920"
End Sub
Private Sub boton4_Click()
acensor.Top = "1080"
End Sub
Private Sub boton5_Click()
acensor.Top = "240"
End Sub
Private Sub botonpb_Click()
acensor.Top = "4440"
End Sub
Private Sub botonss_Click()
acensor.Top = "5280"
End Sub
Private Sub cinco_Click()
acensor.Top = "240"
End Sub
Private Sub cuatro_Click()
acensor.Top = "1080"
End Sub
Private Sub dos_Click()
acensor.Top = "2760"
End Sub
Private Sub LUZ_Click(Index As Integer)
If acensor.BackColor = vbRed Then
acensor.BackColor = vbBlack
End If
End Sub
Private Sub PB_Click()
acensor.Top = "4440"
End Sub
Private Sub SS_Click()
acensor.Top = "5280"
End Sub
Private Sub stop_Click(Index As Integer)
If uno.Enabled = True
Thenuno.Enabled = False
Else
uno.Enabled = True
End If
If dos.Enabled = True Then
dos.Enabled = False
Else
dos.Enabled = True
End If
If tres.Enabled = True Then
tres.Enabled = False
Else
tres.Enabled = True
End If
If cuatro.Enabled = True Then
cuatro.Enabled = False
Else
cuatro.Enabled = True
End If
If cinco.Enabled = True
Thencinco.Enabled = False
Else
cinco.Enabled = True
End If
If PB.Enabled = True Then
PB.Enabled = False
Else
PB.Enabled = True
End If
If SS.Enabled = True Then
SS.Enabled = False
Else
SS.Enabled = True
End If
If boton1.Enabled = True Then
boton1.Enabled = False
Else
boton1.Enabled = True
End If
If boton2.Enabled = True Then
boton2.Enabled = False
Else
boton2.Enabled = True
End If
If boton3.Enabled = True Then
boton3.Enabled = False
Elseboton3.Enabled = True
End If
If boton4.Enabled = True Then
boton4.Enabled = False
Else
boton4.Enabled = True
End If
If boton5.Enabled = True Then
boton5.Enabled = False
Else
boton5.Enabled = True
End If
If botonpb.Enabled = True Then
botonpb.Enabled = False
Else
botonpb.Enabled = True
End If
If botonss.Enabled = True Then
botonss.Enabled = False
Else
botonss.Enabled = True
End If
If contraseña.Enabled = True Then
contraseña.Enabled = False
Else
contraseña.Enabled = True
End If
End Sub
Private Sub tres_Click()
acensor.Top = "1920"End Sub
Private Sub uno_Click()
acensor.Top = "3600"End Sub