button değişimi

[karaayhan]

örnek ve soru içinde teşekkürler..

 

[gulsum1]

Private Sub Komut0_Click()
If Me.Komut0.Caption = "AÇ" Then
Me.Etiket1.Visible = True
Me.Komut0.Caption = "KAPAT"
Else
Me.Etiket1.Visible = False
Me.Komut0.Caption = "AÇ"
End If
End Sub