Activity Six

CODE

Private Sub cmdExit_Click()
If MsgBox("Close Applet?", vbQuestion + vbYesNo, "Exit") = vbYes Then
    End
End If
End Sub

Private Sub cmdf1h_Click()
Frame1.Visible = False
End Sub

Private Sub cmdf2h_Click()
Frame2.Visible = False
End Sub

Private Sub cmdSf1_Click()
Frame1.Visible = True
Frame2.Visible = False
End Sub

Private Sub cmdSf2_Click()
Frame1.Visible = False
Frame2.Visible = True
End Sub