     'Class icon
    .hIconSm = hIconSm                                    'Class small icon
    .hInstance = App.hInstance                            'Application instance
     handle
    .lpfnWndProc = nWndProc                               'Class WndProc address
    .Style = Style                                        'Class style
    .lpszClassName = StrPtr( _
                      StrConv(m_sClass, vbFromUnicode))   'Class name
  End With

  WindowClassRegister = (RegisterClassEx(wc) &lt;&gt; 0)      