Option Explicit

Dim m_hwndEdit As Long

Private Declare Function CreateWindowExW Lib "user32" _
   (ByVal dwExStyle As Long, _
   ByVal lpClassName As Long, _
   ByVal lpWindowName As Long, _
   ByVal dwStyle As Long, _
   ByVal x As Long, _
   ByVal y As Long, _
   ByVal nWidth As Long, _
   ByVal nHeight As Long, _
   ByVal hWndParent As Long, _
   ByVal hMenu As Long, _
   ByVal hInstance As Long, _
   lpParam As Any) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hWnd As Long) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hWnd As Long) As Long

' ShowWindow styles:
Private Const SW_SHOW =  5 
' General window styles:
Private Const WS_CHILD As Long = &H40000000
Private Const WS_BORDER  As Long = &H800000
' Textbox API constants:
Private Const ES_AUTOHSCROLL = &H80&
Private Const ES_AUTOVSCROLL = &H40&
Private Const ES_MULTILINE = &H4&

Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long


Private Sub Form_Load()
   ' Setting the std TextBox control
   Text1.Font.Name = "System"
   Text1.Appearance =  0  ' Flat (thin border)
   SetWindowPos Text1.hWnd,  0 ,  10 ,  30 ,  60 ,  15 ,  0 
   
   ' Define editor style
   Dim dwStyle As Long
   dwStyle = WS_CHILD Or WS_BORDER Or ES_AUTOHSCROLL Or ES_AUTOVSCROLL Or ES_MULTILINE
   
   ' Create editor
   m_hwndEdit = CreateWindowExW( 0 , StrPtr("Edit"),  0 , dwStyle,  10 ,  10 ,  60 ,  15 , Me.hWnd,  0 &, App.hInstance, ByVal  0 &)
   
   ' Activate editor
   ShowWindow m_hwndEdit, SW_SHOW
   SetFocusAPI m_hwndEdit
End Sub

Private Sub Form_Unload(Cancel As Integer)
   DestroyWindow m_hwndEdit
End Sub