Soru togglebutton'a bir kriter daha eklenebilir mi?

[sirkülasyon]

Private Sub ToggleButton1_Click()
ToggleButton1.Caption = "Giriş"
If ToggleButton1.Value = True Then
Frame1.Visible = True
Frame2.Visible = False
Else
ToggleButton1.Caption = "Çıkış"
Frame1.Visible = False
Frame2.Visible = True
End If
End Sub

üçüncü kriter her iki framenin de visible değerini FALSE yapması
Eklenme ihtimali var ise yardımcı olabilir misiniz?

 

[Seyit Tiken]

ToggleButton ile denemedim ama, normal butonla yapılabilir, kendinize uyarlayınız.

If Sayfa1.Shapes("Button 1").TextFrame.Characters.Text = "1.Eylem" Then
MsgBox "1.Eylem"
Sayfa1.Shapes("Button 1").TextFrame.Characters.Text = "2.Eylem"
ElseIf Sayfa1.Shapes("Button 1").TextFrame.Characters.Text = "2.Eylem" Then
MsgBox "2.Eylem"
Sayfa1.Shapes("Button 1").TextFrame.Characters.Text = "3.Eylem"
ElseIf Sayfa1.Shapes("Button 1").TextFrame.Characters.Text = "3.Eylem" Then
MsgBox "3.Eylem"
Sayfa1.Shapes("Button 1").TextFrame.Characters.Text = "1.Eylem"
End If

 

[sirkülasyon]

Seyit abi
örnek dosyayı harici linkte paylaşabilir misiniz?