What am I doing wrong (pretty tired)ZzZzzz

[Daniel_Christie]

What did I do wrong? If I select "Turn tool tips off" from the menu evrything works great but...If I later go and select "Turn tool tips on" nothing changes. In another words the tool tips won't turn back on when I select it, why?

Code:
Private Sub mnuOnOff_Click()
If mnuOnOff.Checked = False Then
lblIssues.ToolTipText = ""
lblDetails.ToolTipText = ""
lblAdd.ToolTipText = ""
optResolved.ToolTipText = ""
optUnresolved.ToolTipText = ""
mnuOnOff.Caption = "Turn tool tips on"
ElseIf mnuOnOff.Checked = True Then
lblIssues.ToolTipText = "Choose an Issue from the list below."
lblDetails.ToolTipText = "Issue details following the requested 1,2,3 format."
lblAdd.ToolTipText = "Add your additional comments here."
optResolved.ToolTipText = "Has the issue been resolved?"
optUnresolved.ToolTipText = "Has the issue been resolved?"
mnuOnOff.Caption = "Turn tool tips off"
End If
End Sub

Appreciate any feedback,
Daniel Christie

[Daniel_Christie]

Never mind I figured it out.

Code:

Private Sub mnuOnOff_Click()
If mnuOnOff.Caption = "Turn tool tips off" Then
lblIssues.ToolTipText = ""
lblDetails.ToolTipText = ""
lblAdd.ToolTipText = ""
optResolved.ToolTipText = ""
optUnresolved.ToolTipText = ""
mnuOnOff.Caption = "Turn tool tips on"
Else
lblIssues.ToolTipText = "Choose an Issue from the list below."
lblDetails.ToolTipText = "Issue details following the requested 1,2,3 format."
lblAdd.ToolTipText = "Add your additional comments here."
optResolved.ToolTipText = "Has the issue been resolved?"
optUnresolved.ToolTipText = "Has the issue been resolved?"
mnuOnOff.Caption = "Turn tool tips off"
End If

Thanks though