'Subclass callback
Private Sub Subclass1_WndProc(Msg As Long, wParam As Long, lParam As Long, Result As Long)
Dim Status As String
If Msg = WM_MENUSELECT Then 'Only message for this demo
Select Case wParam And &HFFFF&
'0 = No menu
'The following values are defined by Visual Basic
'They always start from 1 and increment through each menu item
'1 = File menu
Case 2
Status = "Exit this program"
'3 = Edit menu
Case 4