Private Sub Command1_Click() If Frame1.Visible Then Frame1.Visible = False Frame2.Visible = True ElseIf Frame2.Visible Then Frame2.Visible = False Frame3.Visible = True ElseIf Frame3.Visible Then Frame3.Visible = False Frame1.Visible = True End If End Sub
Private Sub Command1_Click() If Frame1(0).Visible Then Frame1(0).Visible = False Frame1(1).Visible = True ElseIf Frame1(1).Visible Then Frame1(1).Visible = False Frame1(2).Visible = True ElseIf Frame1(2).Visible Then Frame1(2).Visible = False Frame1(0).Visible = True End If End Sub