Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
     (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function UpdateWindow Lib "USER32.DLL" _
    (ByVal hWnd As Long) As Long
 
Private Const WS_CHILD = &H40000000
Private Const GWL_STYLE = (-16)
Private Const GWL_EXSTYLE = (-20)
Private Const WS_TABSTOP = &H10000
Private Const ES_LEFT = &H0&
Private Const ES_MULTILINE = &H4&
Private Const ES_AUTOHSCROLL = &H80&
Private Const WS_EX_CLIENTEDGE = &H200&
Private Const WS_EX_LTRREADING = &H0&
Private Const WS_EX_RIGHTSCROLLBAR = &H0&
Private Const WS_VISIBLE = &H10000000
 
Private Sub Form_Load()
    Dim nStyles As Long
    Dim nExStyles As Long
 
    nStyles = WS_CHILD Or WS_VISIBLE Or ES_LEFT Or ES_MULTILINE Or _
      ES_AUTOHSCROLL
    nExStyles = WS_EX_CLIENTEDGE Or WS_EX_LTRREADING Or WS_EX_RIGHTSCROLLBAR
 
    ' Set Styles
    SetWindowLong Text1.hWnd, GWL_STYLE, nStyles
    SetWindowLong Text1.hWnd, GWL_EXSTYLE, nExStyles
    UpdateWindow Text1.hWnd '<---- das hier ist WICHTIG!
 
 
End Sub