Function ucase() VB

[xit]

Devo convertire in maiuscolo tutte le stringhe delle mie
text box che ho sul mio form, come devo usare la funzione ucase()

[steno12]

Private Sub Command1_Click()
ucases
End Sub

Function ucases()
Text1.Text = ucase(Text1.Text)
End Function

[ans]

Fai un ciclo sui vari controlli del form, verifica il tipo, se è textbox allora....

    
    Dim cText As Control

    For Each cText In Me.Controls
       If TypeOf cText Is TextBox Then cText.Text = UCase$(cText.Text)
    Next