const WS_VISABLE = &h10000000
  const WS_CHILD = &h40000000
  const WS_BORDER = &h00800000
  const WS_TABSTOP = &h00010000
  
  Declare Function GetModuleHandleA Lib "Kernel32" ( nothing as Integer ) as Integer
  
  declare function CreateWindowExA Lib "User32" (dwExStyle as integer,_
      lpClassName as cstring,_
      lpWindowName as cstring,_
      dwStyle as integer,_
      x as integer,_
      y as integer,_
      nWidth as integer,_
      nHeight as integer,_
      hWndparent as integer,_
      hMenu as integer,_
      hInstance as integer,_
      lpParam as cstring) as integer
  
  dim hwndEdit as integer
  dim hInst as integer
  
  hInst = GetModuleHandleA(0)
  
  hwndEdit = CreateWindowExA(0,"RICHEDIT_CLASS","TEXT(""Type here"")",_
      WS_VISABLE+WS_CHILD+WS_TABSTOP+WS_BORDER,_
      10,10,100,100,me.Handle,0,hInst,"")
  if hwndEdit = 0 then msgBox("Failed")
  beep