home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / resocd / resource.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  1.2 KB  |  26 lines
  1. Sub Help_Me ()
  2.  
  3. 'Take away the ON TOP feature in case user has
  4. ' positioned "bar" in front of message box then
  5. ' show the help form. Then reinstate
  6. ' the ON TOP feature.
  7.  
  8.  
  9. NotOnTop% = SetWindowPos(Form1.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
  10.  
  11. NL$ = Chr$(13) + Chr$(10) 'carriage return
  12. Mess1$ = "1). First ""Click"" on the Bar to give it ""Focus"""
  13. Mess2$ = "(When the Bar turns Red, White, and Blue it has the Focus"
  14. Mess3$ = "2). Pressing one of the four ARROW Keys moves the bar in their respective directions."
  15. Mess4$ = "3). To make more significant movements you may drag it around using the left mouse button."
  16. Mess5$ = "4). Pressing the ESC KEY gives the option of quitting."
  17. Mess6$ = "5). Pressing F1 or Double Clicking got you here and lets you set the sound options."
  18. Mess7$ = "TO REGISTER: Send $2.00 to Tim Denihan, 4807 Shadyway Dr. Arlington Texas 76018 and send me an E-Mail Mess. with any comments, CIS# 70600,745.  It ain't much but:" + NL$ + ">ALL RIGHTS ARE RESERVED BY THE AUTHOR<"
  19.  
  20. MsgBox Mess1$ + NL$ + Mess2$ + NL$ + NL$ + Mess3$ + NL$ + NL$ + Mess4$ + NL$ + NL$ + Mess5$ + NL$ + NL$ + Mess6$ + NL$ + NL$ + Mess7$, 64, "Resource Bar Help"
  21.  
  22. OnTop% = SetWindowPos(Form1.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
  23.  
  24. End Sub
  25.  
  26.