Códigos y captura de Pantalla de mi TV

Los códigos son:

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.Captionauxiliar.Caption = ""End Sub
Private Sub masbrillo_Click()pantalla.Top = pantalla.Top + 100pantallita.Top = pantallita.Top + 100auxiliar.Top = auxiliar.Top + 100End Sub
Private Sub mascanal_Click()If nrocanal.Caption < 129 Thennrocanal.Caption = nrocanal.Caption + 1Elsenrocanal.Caption = 0End IfEnd Sub
Private Sub masvolumen_Click()pantalla.Left = pantalla.Left + 50End Sub
Private Sub menosbrillo_Click()pantalla.Top = pantalla.Top - 100pantallita.Top = pantallita.Top - 100auxiliar.Top = auxiliar.Top - 100End Sub
Private Sub menoscanal_Click()If nrocanal.Caption > 0 Thennrocanal.Caption = nrocanal.Caption - 1Elsenrocanal.Caption = 129End IfEnd Sub
Private Sub menosvolumen_Click()pantalla.Left = pantalla.Left - 50End Sub
Private Sub nueve_Click()nrocanal.Caption = "9"auxiliar.Caption = auxiliar.Caption + "9"End Sub
Private Sub ocho_Click()nrocanal.Caption = "8"auxiliar.Caption = auxiliar.Caption + "8"End Sub
Private Sub off_Click()nrocanal.Caption = ""TVCATV = ""ONOFF.BackColor = vbRedONOFF.Caption = "OFF"uno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = Falsetv.Enabled = Falsecatv.Enabled = Falseauxiliar.Enabled = Falseenter.Enabled = Falseauxiliar.Caption = ""End Sub
Private Sub on_Click()nrocanal.Caption = "1"TVCATV = "TV"ONOFF.BackColor = vbGreenONOFF.Caption = "ON"uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = Truetv.Enabled = Truecatv.Enabled = Trueauxiliar.Enabled = Trueenter.Enabled = TrueEnd Sub
Private Sub seis_Click()nrocanal.Caption = "6"auxiliar.Caption = auxiliar.Caption + "6"End Sub
Private Sub siete_Click()nrocanal.Caption = "7"auxiliar.Caption = auxiliar.Caption + "7"End Sub
Private Sub tres_Click()nrocanal.Caption = "3"auxiliar.Caption = auxiliar.Caption + "3"End Sub
Private Sub tv_Click()TVCATV.Caption = "TV"End Sub
Private Sub uno_Click()nrocanal.Caption = "1"auxiliar.Caption = auxiliar.Caption + "1"End Sub