Dim oForm As Form1
Private Sub Command1_Click(ByVal EventSender As System.Object, _
  ByVal EventArgs As System.EventArgs) Handles Command1.Click
 
    oForm = New Form1
    oForm.Show()
End Sub
 
Private Sub Command2_Click(ByVal EventSender As System.Object, _
  ByVal EventArgs As System.EventArgs) Handles Command2.Click
 
    oForm.Close()
End Sub