private Sub Command1_Click()
YourForm.Show false ,me
'Change false to true to display the form as modal
End Sub





Rippin