Dim lpwcx As WNDCLASSEX
Dim RegClass As LongPublic Function RegWinClass(lpClassName As String)
    '注册窗口类
    With lpwcx
        .cbSize = Len(lpwcx)
        .Style = CS_HREDRAW Or CS_VREDRAW Or CS_DBLCLKS
        .lpszClassName = lpClassName
        .hInstance = App.hInstance
        .cbClsExtra = 0
        .cbWndExtra = 0
        .hCursor = LoadCursor(0, IDC_ARROW)
        .lpfnWndProc = FnPtrToLong(AddressOf MainWinProc)
        .lpszMenuName = 0
        .hbrBackground = COLOR_WINDOW
    End With
    Call RegisterClassEx(lpwcx)
End Function能告诉我是什么意思吗!!
还有下文!!