Convierte Palabras

Breve Descripción del Programa:

"Convierte texto de minusculas a mayusculas"

Private Sub convert_Click()
frase = UCase(Text1)
End Sub

Private Sub exit_Click()
End
End Sub

Private Sub clean_Click()
Label2 = ""
Text1 = ""
Text1.SetFocus
End Sub