Private Sub Command1_Click()
  Form2.Show vbModal '或Form2.Show 1
  
  'Form2.Show vbModeless '或Form2.Show 0
End Sub