ник: час
ещё можно добавить...
Private Sub lblLabel_Click()
With lblLabel
.BackColor = Abs(.BackColor - 16777215)
.ControlTipText = .Tag
.Tag = .Caption
.Caption = .ControlTipText
If .SpecialEffect = 2 Then
.SpecialEffect = 1
Else
.SpecialEffect = 2
End If
End With
End Sub