Using the Show Method to Display a Form
Sub SimpleFormExample()
ShowSimpleForm True
MsgBox "OK - Same form now, but modeless.", vbOKOnly
ShowSimpleForm False
MsgBox "Exiting the SimpleFormExample procedure.", vbOKOnly
End Sub
Private Sub ShowSimpleForm(bModal As Boolean)
If bModal Then
frmSimpleForm.Show vbModal
Else
frmSimpleForm.Show vbModeless
End If
End Sub
Related examples in the same category