visual basic 1(por nico)

Private Sub brillomas_Click()
pant.Top = pant.Top - 100
aux.Top = aux.Top - 100
nrocanal.Top = nrocanal.Top - 100
mueble.Top = mueble.Top - 100
End Sub

Private Sub brillomenos_Click()
pant.Top = pant.Top + 100
aux.Top = aux.Top + 100
nrocanal.Top = nrocanal.Top + 100
mueble.Top = mueble.Top + 100
End Sub

Private Sub mascanal_Click()
If nrocanal.Caption < caption =" nrocanal" caption =" 1" left =" pant.Left" left =" aux.Left" left =" nrocanal.Left" left =" mueble.Left" caption =" aux.Caption" caption =" aux.Caption" caption = ""> 0 Then
nrocanal.Caption = nrocanal.Caption - 1
Else
nrocanal.Caption = 129
End If
End Sub

Private Sub menosvol_Click()
pant.Left = pant.Left + 100
aux.Left = aux.Left + 100
nrocanal.Left = nrocanal.Left + 100
mueble.Left = mueble.Left + 100
End Sub

Private Sub uno_Click()
aux.Caption = aux.Caption + "1"
End Sub

Visual Basic 1 (por Daniel)

Private Sub catv_Click()
TVCATV.Caption = "CATV"
End Sub

Private Sub cero_Click()
nrocanal.Caption = "0"
auxiliar.Caption = auxiliar.Caption + "0"
End Sub

Private Sub cinco_Click()
nrocanal.Caption = "5"
auxiliar.Caption = auxiliar.Caption + "5"
End Sub

Private Sub Command1_Click()

End Sub

Private Sub cuatro_Click()
nrocanal.Caption = "4"
auxiliar.Caption = auxiliar.Caption + "4"
End Sub

Private Sub dos_Click()
nrocanal.Caption = "2"
auxiliar.Caption = auxiliar.Caption + "2"
End Sub

Private Sub enter_Click()
nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub

Private Sub masbrillo_Click()
pantalla.Top = pantalla.Top + 100
pantallita.Top = pantallita.Top + 100
auxiliar.Top = auxiliar.Top + 100
End Sub

Private Sub mascanal_Click()
If nrocanal.Caption < 129 Then
nrocanal.Caption = nrocanal.Caption + 1
Else
nrocanal.Caption = 0
End If
End Sub

Private Sub masvolumen_Click()
pantalla.Left = pantalla.Left + 50
End Sub

Private Sub menosbrillo_Click()
pantalla.Top = pantalla.Top - 100
pantallita.Top = pantallita.Top - 100
auxiliar.Top = auxiliar.Top - 100
End Sub