Public Declare Unicode Function CreateWindowEx Lib "user32" Alias "CreateWindowExW" _
   (ByVal dwExStyle As Integer, ByVal lpClassName As String, ByVal lpWindowName As String, _
   ByVal dwStyle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, _
   ByVal nHeight As Integer, ByVal hwndParent As IntPtr, ByVal hMenu As IntPtr, _
   ByVal hInstance As IntPtr, ByRef lpParam As Object) As IntPtr

    g_hwndRebar = CreateWindowEx(WS_EX_TOOLWINDOW, _
     REBARCLASSNAME, _
     vbNullString, _
     RebarStyle, _
     0, _
     0, _
     rcClient.Right, _
     0, _
     Form1.PanelToolbar.Handle, _
     IntPtr.Zero, _
     System.Runtime.InteropServices.Marshal.GetHINSTANCE _
      (System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32(), _
     Nothing)

IntPtr hInstance = Process.GetCurrentProcess().Handle

     IntPtr.Zero, _
     System.Runtime.InteropServices.Marshal.GetHINSTANCE _
      (System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt64(), _
     Nothing)

     IntPtr.Zero, _
     System.Runtime.InteropServices.Marshal.GetHINSTANCE _
      (System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).<ToIntPtr()>, _
     Nothing)

    g_hwndRebar = CreateWindowEx(WS_EX_TOOLWINDOW, _
     REBARCLASSNAME, _
     vbNullString, _
     RebarStyle, _
     0, _
     0, _
     rcClient.Right, _
     0, _
     Form1.PanelToolbar.Handle, _
     IntPtr.Zero, _
     System.Runtime.InteropServices.Marshal.GetHINSTANCE _
      (System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)), _
     Nothing)