I don't know why this never occured to me, but instead of
stacking buttons, change the button caption of one button and what it does:
Dim ctl As Control
Select Case Me.cmdInfo.Caption
Case Is = "How It Works"
For Each ctl In Me.Controls
If ctl.Tag = 14 Then
ctl.Visible = True
End If
Next
Me.cmdInfo.Caption = "Close"
Me.cmdInfo.ForeColor = vbRed
Case Is = "Close"
For Each ctl In Me.Controls
If ctl.Tag = 14 Then
ctl.Visible = False
End If
Next
Me.cmdInfo.Caption = "How It Works"
Me.cmdInfo.ForeColor = vbBlack
End Select
stacking buttons, change the button caption of one button and what it does:
Dim ctl As Control
Select Case Me.cmdInfo.Caption
Case Is = "How It Works"
For Each ctl In Me.Controls
If ctl.Tag = 14 Then
ctl.Visible = True
End If
Next
Me.cmdInfo.Caption = "Close"
Me.cmdInfo.ForeColor = vbRed
Case Is = "Close"
For Each ctl In Me.Controls
If ctl.Tag = 14 Then
ctl.Visible = False
End If
Next
Me.cmdInfo.Caption = "How It Works"
Me.cmdInfo.ForeColor = vbBlack
End Select