VERSION 2.00
Begin Form Balloons
   Caption         =   "TIP Balloons"
   ClientHeight    =   5550
   ClientLeft      =   1095
   ClientTop       =   1485
   ClientWidth     =   7365
   Height          =   5955
   Left            =   1035
   LinkTopic       =   "Form1"
   ScaleHeight     =   5550
   ScaleWidth      =   7365
   Top             =   1140
   Width           =   7485
   Begin CommandButton Command5
      Caption         =   "Exit"
      Height          =   330
      Left            =   1680
      TabIndex        =   11
      Top             =   5040
      Visible         =   0   'False
      Width           =   960
   End
   Begin CommandButton Command4
      Caption         =   "Quit"
      Height          =   330
      Left            =   735
      TabIndex        =   10
      Tag             =   "Good Bye"
      Top             =   5040
      Width           =   960
   End
   Begin CommandButton Command3
      Caption         =   "ABOUT"
      Height          =   330
      Left            =   5775
      TabIndex        =   4
      Top             =   5040
      Width           =   1275
   End
   Begin PictureBox Picture1
      Height          =   540
      Left            =   5145
      Picture         =   TIPFORM.FRX:0000
      ScaleHeight     =   510
      ScaleWidth      =   510
      TabIndex        =   3
      Tag             =   "How about this"
      Top             =   420
      Visible         =   0   'False
      Width           =   540
   End
   Begin CommandButton Command2
      Caption         =   "Another Way"
      Height          =   330
      Left            =   4515
      TabIndex        =   2
      Top             =   945
      Width           =   1695
   End
   Begin CommandButton Command1
      Caption         =   "Nothing"
      Height          =   330
      Left            =   735
      TabIndex        =   0
      Tag             =   "This does absolutely nothing."
      Top             =   945
      Width           =   1275
   End
   Begin Line Line6
      Visible         =   0   'False
      X1              =   6720
      X2              =   5670
      Y1              =   315
      Y2              =   945
   End
   Begin Label Label5
      BackColor       =   &H0000FFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "No space between the Command Button and the Pic Box."
      Height          =   225
      Left            =   2310
      TabIndex        =   9
      Top             =   105
      Visible         =   0   'False
      Width           =   4950
   End
   Begin Line Line5
      Visible         =   0   'False
      X1              =   1995
      X2              =   3045
      Y1              =   420
      Y2              =   840
   End
   Begin Line Line4
      Visible         =   0   'False
      X1              =   1995
      X2              =   5145
      Y1              =   420
      Y2              =   630
   End
   Begin Label Label4
      BackColor       =   &H00FF0000&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Set all TIP balloons Property VISIBLE to False."
      ForeColor       =   &H0000FFFF&
      Height          =   645
      Left            =   105
      TabIndex        =   8
      Top             =   105
      Visible         =   0   'False
      Width           =   1905
   End
   Begin Line Line3
      Visible         =   0   'False
      X1              =   6195
      X2              =   6510
      Y1              =   1260
      Y2              =   2100
   End
   Begin Label Label3
      BackColor       =   &H00FFFF80&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "This is yet another way to make a TIP balloon. This example is an Icon in a picture box. See the MOUSEMOVE Proc for the code that makes the Picture appear."
      Height          =   1695
      Left            =   4725
      TabIndex        =   7
      Top             =   2100
      Visible         =   0   'False
      Width           =   2535
   End
   Begin Line Line2
      Visible         =   0   'False
      X1              =   2730
      X2              =   2520
      Y1              =   1260
      Y2              =   1995
   End
   Begin Line Line1
      Visible         =   0   'False
      X1              =   1050
      X2              =   105
      Y1              =   1260
      Y2              =   3780
   End
   Begin Label Label2
      BackColor       =   &H0080FFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "The purpose of the TIP label is to provide a container for the text of your TIP which is entered into the TAG Proc of the related Control Button. In this example, the ""Nothing"", Command1 button"
      Height          =   1485
      Left            =   840
      TabIndex        =   6
      Top             =   1995
      Visible         =   0   'False
      Width           =   2535
   End
   Begin Label Label1
      BackColor       =   &H0080FF80&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "See the MOUSEMOVE Proc for what makes the TIP appear, and how it is positioned.                                                                  DoubleClick on a blank portion of the Form to see what makes the TIP balloons go away."
      Height          =   1065
      Left            =   105
      TabIndex        =   5
      Top             =   3780
      Visible         =   0   'False
      Width           =   4005
   End
   Begin Label TIP
      BackColor       =   &H0080FFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "TIP, this can be located anywhere."
      Height          =   435
      Left            =   2310
      TabIndex        =   1
      Top             =   840
      Visible         =   0   'False
      Width           =   2010
   End
End

Sub Command1_Click ()
Beep
Beep

End Sub

Sub Command1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
tip.Caption = command1.Tag' text of balloon
tip.Top = (command1.Top + (command1.Height - 1000))
tip.Left = (command1.Left + (command1.Width - 500))
tip.Visible = True
End Sub

Sub Command2_Click ()
'start_insert ---------------------
Dim msg As String
msg = msg & "This is an ICON in a picture box." & Chr$(13) & Chr$(10)
msg = msg & "It must be pre-positioned to where you want it." & Chr$(13) & Chr$(10)
msg = msg & "You can even click on ICON for some startling info." & Chr$(13) & Chr$(10)
MsgBox msg, 0, "Another Way"
'end_insert -----------------------

End Sub

Sub Command2_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
picture1.Visible = True
End Sub

Sub Command3_Click ()
'start_insert ---------------------
Dim msg As String
msg = msg & "I have tried several VBXs and codes to make Tip or Hint balloons." & Chr$(13) & Chr$(10)
msg = msg & " All seemed to be too much work for so little a balloon." & Chr$(13) & Chr$(10)
msg = msg & "There had to be an easier way. I made one. " & Chr$(13) & Chr$(10)

msg = msg & "This technique opens the imagination to all sorts of wild  works." & Chr$(13) & Chr$(10)
msg = msg & "I made a MENU BAR that pops up (you cannot have any part of" & Chr$(13) & Chr$(10)
msg = msg & "the form showing between the items.) It works GREAT!" & Chr$(13) & Chr$(10)


msg = msg & Chr$(13) & Chr$(10)
msg = msg & "This is too simple to try to set a selling price. But, if you find this" & Chr$(13) & Chr$(10)
msg = msg & "technique to be useful, and appreciate my work; and" & Chr$(13) & Chr$(10)
msg = msg & "feel compassion for my efforts to save enough money" & Chr$(13) & Chr$(10)
msg = msg & "to get a 2gig hard drive, a 28.8 modem; then maybe you" & Chr$(13) & Chr$(10)
msg = msg & "can donate 5 or 10 dollars to the cause. " & Chr$(13) & Chr$(10)

msg = msg & Chr$(13) & Chr$(10)
msg = msg & "Otherwise, you can just E-mail me a 'Gosh, Jeff is a good boy'" & Chr$(13) & Chr$(10)


msg = msg & Chr$(13) & Chr$(10)
msg = msg & "Jeff Beard" & Chr$(13) & Chr$(10)

msg = msg & "210 Maverick Circle" & Chr$(13) & Chr$(10)

msg = msg & "Wetumpka AL 36092" & Chr$(13) & Chr$(10)

msg = msg & Chr$(13) & Chr$(10)
msg = msg & Chr$(13) & Chr$(10)
msg = msg & "CIS: Robert J. Beard 72333,2575" & Chr$(13) & Chr$(10)

msg = msg & Chr$(13) & Chr$(10)
msg = msg & "AOL: [[Email Removed]] (same for I'net)" & Chr$(13) & Chr$(10)
msg = msg & Chr$(13) & Chr$(10)
msg = msg & Chr$(13) & Chr$(10)
MsgBox msg, 0, "ABOUT"
'end_insert -----------------------

End Sub

Sub Command4_Click ()
End
End Sub

Sub Command4_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
tip.Caption = command4.Tag' text of balloon
tip.Top = (command4.Top + (command4.Height - 1000))
tip.Left = (command4.Left + (command4.Width - 500))
tip.Visible = True
command5.Visible = True
End Sub

Sub Command5_Click ()
End
End Sub

Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
tip.Visible = False
picture1.Visible = False
command5.Visible = False
End Sub

Sub Picture1_Click ()
'start_insert ---------------------
Dim msg As String
msg = msg & "It is not me, but sure looks close." & Chr$(13) & Chr$(10)
msg = msg & "(except there are no eye-glasses)" & Chr$(13) & Chr$(10)
MsgBox msg, 0, "Guess Who"
'end_insert -----------------------
End Sub