:       sClass =
     "MDICLIENT"
    Case WinSubHook.eWindowClass.PREDEFINED_RICHEDIT:        sClass = "RichEdit"
    Case WinSubHook.eWindowClass.PREDEFINED_RICHEDIT_CLASS:  sClass =
     "RICHEDIT_CLASS"
    Case WinSubHook.eWindowClass.PREDEFINED_SCROLLBAR:       sClass =
     "SCROLLBAR"
    Case WinSubHook.eWindowClass.PREDEFINED_STATIC:          sClass = "STATIC"
  End Select
  Debug.Assert (sClass &lt;&gt; vbNullString)                   'LOGIC ERROR! Class
   name not defined
  
'Create the window
