Sub Command1_Click ()

MenuEnable (TestForm.Hwnd), -1

End Sub

Sub Command2_Click ()

MenuEnable (TestForm.Hwnd), 0

End Sub