Code box

Sub ShowToolTip(left As Integer, text$)

lbltooltip.Caption = text$
lbltooltip.Move left + 400, 800, TextWidth(text$) + 80, 275
lbltooltip.Visible = True

End Sub

Private Sub buttonPicture_Click(Value As Integer)

If Value = False Then
Form1.Picture = LoadPicture()
Else
Form1.Picture = Picture1.Picture
End If

End Sub

Private Sub buttonPicture_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Call ShowToolTip(buttonPicture.left, buttonPicture.Tag)

End Sub

Private Sub buttonQuit_Click()

Unload Me
End

End Sub

Private Sub buttonQuit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Call ShowToolTip(buttonQuit.left, buttonQuit.Tag)

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

lbltooltip.Visible = False

End Sub

Private Sub ssButton_Click(Index As Integer, Value As Integer)

Select Case Index
Case 0
lblDisplayText.FontBold = Not (lblDisplayText.FontBold)
Case 1
lblDisplayText.FontItalic = Not (lblDisplayText.FontItalic)
Case 2
lblDisplayText.FontUnderline = Not (lblDisplayText.FontUnderline)
End Select

End Sub

Private Sub ssButton_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

Call ShowToolTip(ssButton(Index).left, ssButton(Index).Tag)

End Sub

Private Sub SSPanel1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

lbltooltip.Visible = False

End Sub