Private Sub Command1_Click() Form1.Visible = False Form2.Visible = True
End Sub
Private Sub Command2_Click() Form2.Visible = False Form1.Visible = True
End Sub
Private Sub Command1_Click()
Frame1.Visible = True
Frame2.Visible = False
End Sub
Private Sub Command2_Click()
Frame1.Visible = False
Frame2.Visible = True
End Sub
Private Sub Form_Load()
Call Command1_Click
End Sub