COLORES Y POSICIONES

LOS OPTIION DE LOS COLORES ENLA PROPIEDAD NAME ES IGUAL AL NOMBRE DEL COLOR

CODIGO_______________________________________________________________
Private Sub amariilo_Click()
Text1.BackColor = vbYellow
End Sub

Private Sub azul_Click()
Text1.BackColor = vbBlue
End Sub

Private Sub blanco_Click()
Text1.BackColor = vbWhite
End Sub

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub negro_Click()
Text1.BackColor = vbBlack
End Sub

Private Sub Option1_Click()
Text1.Top = 150
End Sub

Private Sub Option2_Click()
Text1.Top = 1315
End Sub

Private Sub Option3_Click()
Text1.Top = 2500
End Sub

Private Sub Option5_Click()
Text1.Text = BackColor
End Sub

Private Sub Option4_Click(Index As Integer)
Text1.ForeColor = Option4(Index).ForeColor
End Sub

Private Sub rojo_Click()
Text1.BackColor = vbRed
End Sub

Private Sub Text2_Change()
Text1.Text = Text2.Text
End Sub

Private Sub verde_Click()
Text1.BackColor = vbGreen
End Sub