如何利用API来自己画个窗体（付我的代码）

Question

我想在按一个按钮后利用API显示另外一个窗口
========================模块代码
Option Explicit
Public Declare Function CreateWindow Lib "user32" (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
Public Declare Function RegisterClass Lib "user32" Alias "RegisterClassA" (Class As WNDCLASS) As Long
Public Type WNDCLASS
    style As Long
    lpfnwndproc As Long
    cbClsextra As Long
    cbWndExtra2 As Long
    hInstance As Long
    hIcon As Long
    hCursor As Long
    hbrBackground As Long
    lpszMenuName As String
    lpszClassName As String
End Type
Public Const WS_OVERLAPPED = &H0&
Public Const WS_CAPTION = &HC00000
Public Const WS_SYSMENU = &H80000
Public Const WS_THICKFRAME = &H40000
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX)
Public Const CW_USEDEFAULT = &H80000000
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Const SW_SHOWDEFAULT = 10
Public Declare Function LoadIcon Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As String) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As String) As Long
Public Declare Function GetStockObject Lib "gdi32" (ByVal nIndex As Long) As Long
Public 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
========================窗体1代码=====================================
Option Explicit
Dim wndobj As WNDCLASS
Private Sub Command1_Click()
Dim hwnd As Long
wndobj.hInstance = 111
wndobj.lpszClassName = "NO_1"
wndobj.lpszMenuName = 0
wndobj.cbClsextra = 0
wndobj.cbWndExtra2 = 0
wndobj.lpfnwndproc = 0
wndobj.style = &H2 + &H1
wndobj.hIcon = LoadIcon(0, 32512&)
wndobj.hCursor = LoadCursor(0, 32515&)
wndobj.hbrBackground = GetStockObject(0)
RegisterClass wndobj'hwnd = CreateWindow("NO_1", "First Window", WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, 200, 200, 0, 0, 1111, 0)'如果使用CreateWindow报找不到DLL入口
我已经声明过这个API了呀
hwnd = CreateWindowEx(0, "NO_1", "First Window", WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, 200, 200, 0, 0, 111, 0)
'换 CreateWindowEx却执行老是崩溃,到底应该怎么实现啊
    ShowWindow hwnd, SW_SHOWDEFAULT
    UpdateWindow (hwnd)
End Sub