Article ID: 192252
Article Last Modified on 5/13/2003
Private Sub DisableForm()
Form1.Enabled = False
mnuFile.Enabled = False
End Sub
Caption: &File Name: mnuFile
Caption: E&xit Name: mnuExit
Private Sub Form_Load()
Command1.Caption = "Disable Form"
End Sub
Private Sub Command1_Click()
Me.Enabled = False
End Sub
Private Sub mnuExit_Click()
MsgBox "Exit Called!!"
Me.Enabled = True
End Sub
Additional query words: kbDSupport kbDSD kbVBp kbVBp600bug kbVBp500bug kbMenu kbIDE
Keywords: kbbug KB192252