Legal Stuff
-----------

	This archive is supplied 'AS IS' without any warranty of any kind. I
(Jonathan Friend) cannot be held responsable for any or all damage caused 
directly or indirectly by any or all of the contents of this archive.
-----------------------------------------------------------------------------

Now the legal stuff is over . . .

So, you want to enhance your VB applications with 'ToolTips'. Well, here is
a simple way to do it.

Instructions
------------

1.	Add 'TOOLTIPS.BAS' and 'FRMHELP.FRM' to your project (CTRL-D).

2.	On the form where the controls are you want 'ToolTips' for, add
	a timer with its 'Interval' property set to '1000' and its 'Enabled'
	property set to 'True'.

3.	Place the following code in the timer event of Timer1.


Sub Timer1_Timer ()
Dim curhWnd As Integer
Dim p As POINTAPI
Static LasthWnd As Integer

If GetActiveWindow() = frmMain.hWnd Then
    Call GetCursorPos(p)
    curhWnd = WindowFromPoint(p.y, p.x)

    If curhWnd <> LasthWnd Then
        LasthWnd = curhWnd
        Timer1.Interval = 5
        Select Case curhWnd
            Case btnKill.hWnd
                DisplayHelp "Delete File/Directory" 
            'The above is just an example of the things you should put in
	    Case frmHelp.hWnd
                frmHelp.Hide
            Case Else
                DisplayHelp ""
                Timer1.Interval = 1000
            'The above two cases are necessary! You MUST put them in!
	End Select
    End If
End If
End Sub


4.	Now, run your program. When you hold the mouse over one of the
	selected controls, a small box will appear with you description in.


  YOU CAN ALSO HAVE A LOOK AT THE EXAMPLE PROJECT IN THE EXAMPLE DIRECTORY

Happy Programming

Jonathan Friend

You can contact me by Email:

Internet   : 101331.3160@compuserve.com
Compuserve : 101331,3160
