Форма в ActiveX Dll

Public Function Window() As Long
   ' Остальной код
   Window = Me.hWnd
End Function

Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, 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 SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CreateFont Lib "gdi32" Alias "CreateFontW" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal i As Long, ByVal u As Long, ByVal S As Long, ByVal c As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function UpdateWindow Lib "user32" (ByVal hWnd As Long) As Long
 
Private Const GUI_WINDOW_DEFAULT = (&H20000 Or &HC00000 Or &H80000000 Or &H80000)
Private Const GUI_BUTTON_DEFAULT = (&H10000000 Or &H40000000)
 
Dim ControlInfo() As Long
 
Private Sub Class_Initialize()
    ReDim ControlInfo(3)
End Sub
 
Public Function GUIForm(Optional ByVal Title As String = "", _
                        Optional ByVal Width As Long = 600, _
                        Optional ByVal Height As Long = 450, _
                        Optional ByVal x As Long = -1, _
                        Optional ByVal Y As Long = -1, _
                        Optional ByVal Style As Long = -1, _
                        Optional ByVal ExStyle As Long = -1, _
                        Optional ByVal hParent As Long = 0) As Long
    Dim hWnd As Long
    If x = -1 Then
        x = (((Screen.Width / Screen.TwipsPerPixelX) / 2) - (Width / 2))
    End If
    If Y = -1 Then
        Y = (((Screen.Height / Screen.TwipsPerPixelY) / 2) - (Height / 2))
    End If
    If Style = -1 Then
        Style = GUI_WINDOW_DEFAULT
    End If
    If ExStyle = -1 Then
        ExStyle = 0
    End If
    hWnd = CreateWindowEx(ExStyle, "#32770", Title, Style, x, Y, Width, Height, hParent, 0, App.hInstance, 0)
    Call SetWindowLong(hWnd, (-4), AddressOf WndProc)
    GUIForm = hWnd
End Function
 
Public Function GUIButton(ByVal hWnd As Long, _
                          ByVal Text As String, _
                          ByVal x As Long, _
                          ByVal Y As Long, _
                          Optional ByVal Width As Long = -1, _
                          Optional ByVal Height As Long = -1, _
                          Optional ByVal Style As Long = -1, _
                          Optional ByVal ExStyle As Long = -1) As Long
    Dim Index As Long
    If Width = -1 Then
        Width = 80
    End If
    If Height = -1 Then
        Height = 25
    End If
    If Style = -1 Then
        Style = GUI_BUTTON_DEFAULT
    End If
    If ExStyle = -1 Then
        ExStyle = 0
    End If
    Index = UBound(ControlInfo)
    ReDim Preserve ControlInfo(Index + 1)
    ControlInfo(Index) = CLng(CreateWindowEx(ExStyle, "Button", Text, Style, x, Y, Width, Height, hWnd, Index, App.hInstance, 0))
    SetDefaultFont (ControlInfo(Index))
    GUIButton = Index
End Function
 
Public Function GUIShow(ByVal hWnd As Long, _
                        Optional ByVal State As Long = 5) As Boolean
    Dim iRet As Long
    iRet = ShowWindow(hWnd, State)
    UpdateWindow (hWnd)
    GUIShow = iRet
End Function
 
Public Function CHandle(ByVal Id As Long) As Long
    CHandle = ControlInfo(Id)
End Function
 
Private Function SetDefaultFont(ByVal hWnd As Long) As Long
     Dim hFont As Long
     hFont = CreateFont(14, 0, 0, 0, 400, False, False, False, 1, 0, 0, 0, 0, "Arial")
     SetFont = SendMessage(hWnd, &H30, hFont, True)
End Function
 
Public Function WndProc(ByVal hWnd As Long, ByVal iMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    'code
End Function

      Set myClnd=CreateObject("PrjB.clsMain")
 
      myClnd.About
 
      myClnd.Cshow
 
      aDat=myClnd.Dat
 
      If Len(aDat)=0 then
 
         Msgbox "Вы отказались от выбора"
 
      else
 
         MsgBox "Вы выбрали дату "+aDat
 
      end if