!Refer to winparse.f90 to see what Win message called the subroutine

!MS$DEFINE Form_Create
subroutine Form_Create(hWnd)
 integer(4),intent(in) :: hWnd
end subroutine

!MS$DEFINE Form_InitDialog
subroutine Form_InitDialog(hWnd)
 integer(4),intent(in) :: hWnd 
end subroutine

!MS$DEFINE Form_GotFocus
subroutine Form_GotFocus(hWnd)
 integer(4), intent(in) :: hWnd
end subroutine

!MS$DEFINE Form_LostFocus
subroutine Form_LostFocus(hWnd)
 integer(4), intent(in) :: hWnd
end subroutine

!MS$DEFINE Form_LButtonDown
subroutine Form_LButtonDown(hWnd, Flag, X, Y)
 integer(4), intent(in) :: hWnd, Flag, X, Y
end subroutine

!MS$DEFINE Form_LButtonUp
subroutine Form_LButtonUp(hWnd, Flag, X, Y)
 integer(4), intent(in) :: hWnd, Flag, X, Y
end subroutine

!MS$DEFINE Form_LButtonDblClk
subroutine Form_LButtonDblClk(hWnd, Flag, X, Y)
 integer(4), intent(in) :: hWnd, Flag, X, Y
end subroutine

!MS$DEFINE Form_RButtonDown
subroutine Form_RButtonDown(hWnd, Flag, X, Y)
 integer(4), intent(in) :: hWnd, Flag, X, Y
end subroutine

!MS$DEFINE Form_RButtonUp
subroutine Form_RButtonUp(hWnd, Flag, X, Y)
 integer(4), intent(in) :: hWnd, Flag, X, Y
end subroutine

!MS$DEFINE Form_MouseMove
subroutine Form_MouseMove(hWnd, X, Y)
 integer(4), intent(in) :: hWnd, X, Y
end subroutine

!MS$DEFINE Form_KeyDown
subroutine Form_KeyDown(hWnd, CharCode, Shift)
 !Shift same as VB: Shift= 0 or 1. Control=0 or 2
 integer(4), intent(in) :: hWnd, CharCode, Shift 
end subroutine

!MS$DEFINE Form_Size
subroutine Form_Size(hWnd, Width, Height)
 integer(4), intent(in) :: hWnd, Width, Height 
end subroutine

!MS$DEFINE Form_Color
subroutine Form_Color(hWnd, hDC)
 integer(4), intent(in)  :: hWnd, hDC
end subroutine

!MS$DEFINE Form_Paint
subroutine Form_Paint(hWnd)
 integer(4), intent(in) :: hWnd 
end subroutine

!MS$DEFINE Form_HScroll
subroutine Form_HScroll(hWnd, Pos, Min, Max)
 integer(4), intent(in) :: hWnd, Pos, Min, Max 
end subroutine

!MS$DEFINE Form_VScroll
subroutine Form_VScroll(hWnd, Pos, Min, Max)
 integer(4), intent(in) :: hWnd, Pos, Min, Max 
end subroutine

!MS$DEFINE Control_HScroll
subroutine Control_HScroll(hWnd, IDControl, Pos, Min, Max)
 integer(4), intent(in) :: hWnd, IDControl, Pos, Min, Max 
end subroutine

!MS$DEFINE Control_VScroll
subroutine Control_VScroll(hWnd, IDControl, Pos, Min, Max)
 integer(4), intent(in) :: hWnd, IDControl, Pos, Min, Max 
end subroutine

!MS$DEFINE Form_Close
subroutine Form_Close(hWnd, Cancel)
 !Set iCancel to 0 to prevent close
 integer(4), intent(in) :: hWnd 
 integer(4), intent(out) :: Cancel
end subroutine

!MS$DEFINE Form_Destroy
subroutine Form_Destroy(hWnd)
!Called after window is removed.
 integer(4), intent(in) :: hWnd
end subroutine

!MS$DEFINE ToolTip_Needtext
subroutine ToolTip_Needtext(hWnd, IDControl, szTool, szStatus)
 !Called when Tooltip wants to display. 
 !Change to show szTool in Statusbar. From Resource file.
 integer(4), intent(in) :: hWnd, IDControl
 character*(*), intent(in) :: szStatus
 character*(*), intent(inout) :: szTool
end subroutine

!BUTTON CONTROLS 
!MS$DEFINE Button_Click
subroutine Button_Click(hWnd, IDControl, hWndControl)
 !Sub for all Button+Menu controls - Click event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl 
end subroutine

!STATIC CONTROLS
!MS$DEFINE Static_Color
subroutine Static_Color(IDControl, hDC, Backcolor)
 !Called before statics (label, image) are drawn to get background + text color.
 integer(4), intent(in)  :: IDControl, hDC
 integer(4), intent(out) :: Backcolor 
end subroutine

!EDIT CONTROLS
!MS$DEFINE Edit_Color
subroutine Edit_Color(IDControl, hDC, Backcolor)
 !Called before statics (label, image) are drawn to get background + text color.
 integer(4), intent(in)  :: IDControl, hDC
 integer(4), intent(out) :: Backcolor 
end subroutine
!MS$DEFINE Edit_Setfocus
subroutine Edit_Setfocus(hWnd, IDControl, hWndControl)
 !Sub for all Edit controls - Setfocus event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl 
end subroutine
!MS$DEFINE Edit_Killfocus
subroutine Edit_Killfocus(hWnd, IDControl, hWndControl)
 !Sub for all Edit controls - Lostfocus event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl 
end subroutine
!MS$DEFINE Edit_Change
subroutine Edit_Change(hWnd, IDControl, hWndControl)
 !Sub for all Edit controls - Change event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl
end subroutine
!MS$DEFINE Edit_Update
subroutine Edit_Update(hWnd, IDControl, hWndControl)
 !Sub for all Edit controls - Change event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl
end subroutine

!LIST CONTROLS
!MS$DEFINE List_Setfocus
subroutine List_Setfocus(hWnd, IDControl, hWndControl)
 !Sub for all List controls - Setfocus event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl 
end subroutine
!MS$DEFINE List_Killfocus
subroutine List_Killfocus(hWnd, IDControl, hWndControl)
 !Sub for all List controls - Lostfocus event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl 
end subroutine
!MS$DEFINE List_SelChange
subroutine List_SelChange(hWnd, IDControl, hWndControl)
 !Sub for all List controls - Change event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl
end subroutine

!COMBO BOXES
!MS$DEFINE Combo_Setfocus
subroutine Combo_Setfocus(hWnd, IDControl, hWndControl)
 !Sub for all Combo controls - Setfocus event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl 
end subroutine
!MS$DEFINE Combo_Killfocus
subroutine Combo_Killfocus(hWnd, IDControl, hWndControl)
 !Sub for all Combo controls - Lostfocus event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl 
end subroutine
!MS$DEFINE Combo_SelChange
subroutine Combo_SelChange(hWnd, IDControl, hWndControl)
 !Sub for all Combo controls - Change event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl
end subroutine

!MENU ITEMS 
!MS$DEFINE Menu_Click
subroutine Menu_Click(hWnd, IDControl)
 !Sub for all Button+Menu controls - Click event
 integer(4), intent(in) :: hWnd, IDControl 
end subroutine