select文

Dim x As Boolean
Select Case x = Button1.Visible
Case x = True
Button1.Visible = False
Case x = False
Button1.Visible = True
End Select

if文
Dim x As Boolean
If Button1.Visible = True Then
Button1.Visible = False
Else
Button1.Visible = True
End If
かな

>>599
＞　Button1.Visible　=　Not　Button1.Visible
=trueが無くても動くことは知りませんでした
Button1.Visible　と書けばその値は内部的に調べてくれると言う認識でしょうか
とても為になりました　見た目でも分かりやすいです
ありがとうございました