Note that this method automatically converts all text without additional code in the event handlers. It also converts text pasted into the control using ^V or the context menu.

Private Sub Form_Load()
    SetExtendedStyle Text1.hwnd, ES_UPPERCASE
    SetExtendedStyle Text2.hwnd, ES_LOWERCASE
End Sub

' Give the control the extended style.
Private Sub SetExtendedStyle(ByVal hwnd As Long, ByVal _
    ex_style As Long)
Dim style As Long

    style = GetWindowLong(hwnd, GWL_STYLE)
    style = style Or ex_style
    SetWindowLong hwnd, GWL_STYLE, style
End Sub