Trabajo de la encuesta

Apunte,

Todo lo hecho en todas las clases hasta ahora es esto:
Private Sub Command1_Click()
canalaux.Caption = canalaux.Caption + "3"
End Sub

Private Sub Command2_Click()
canalaux.Caption = canalaux.Caption + "4"
End Sub
Private Sub Command3_Click()
canalaux.Caption = canalaux.Caption + "2"
End Sub
Private Sub catv_Click()
Tvcatv.Caption = "catv"
End Sub
Private Sub mas_Click()
Pantalla.Top = Pantalla.Top - 100

End Sub
Private Sub mas_Click()
pantalla.Top = Pantalla.Top - 100
End Sub

Private Sub Command2_Click()}
canalaux.Caption = canalaux.Caption + "4"
End Sub
Private Sub Command3_Click()
canalaux.Caption = canalaux.Caption + "2"
End Sub
Private Sub Enter_Click()
If Val(canalaux.Caption) > 13 Then
canalaux.Caption = ""Else
nrocanal.Caption = canalaux.Captioncanalaux.Caption = ""
End If
End Sub
Private Sub horizontalder_Click(Index As Integer)
Pantalla.Left = Pantalla.Left + 100
EndPrivate Sub tvoff_Click()
Onoff.Caption = "off"
End Sub

tvon_Click()Onoff.Caption = "on"End Sub
Sub

Private Sub horizontalizq_Click()
Pantalla.Left = Pantalla.Left - 100
End Sub

Private Sub tv_Click()
Tvcatv.Caption = "tv"
End Sub
Private Sub verticalabajo_Click(Index As Integer)
Pantalla.Top = Pantalla.Top + 100
End Sub
Private Sub verticalarriba_Click(Index As Integer)
Pantalla.Top = Pantalla.Top - 100
End Sub

Apunte