Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Instead of Stacking Buttons....

Status
Not open for further replies.

dRahme

Technical User
Jun 24, 2004
286
US
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
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top