Attribute VB_Name = "mSubDll4"
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long


Public Declare Function GetMessage Lib "user32" Alias "GetMessageA" (ByRef lpMsg As msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long) As Long
Public Declare Function TranslateMessage Lib "user32" (ByRef lpMsg As msg) As Long
Public Declare Function IsDialogMessage Lib "user32" Alias "IsDialogMessageA" (ByVal hDlg As Long, ByRef lpMsg As msg) As Long
Public Declare Function DispatchMessage Lib "user32" Alias "DispatchMessageA" (ByRef lpMsg As msg) As Long

Public Type msg
  hWnd              As Long    ' Identifies the window whose window procedure receives the message.
  message           As Long    ' Specifies the message number.
  wParam            As Long    ' Specifies additional information about the message. The exact meaning depends on the value of the message member.
  lParam            As Long    ' Specifies additional information about the message. The exact meaning depends on the value of the message member.
  time              As Long    ' Specifies the time at which the message was posted.
  ptX               As Long    ' Specifies the X cursor position (in screen coordinates) when the message was posted.
  ptY               As Long    ' Specifies the Y cursor position (in screen coordinates) when the message was posted.
End Type

Public TheMessage As msg


