home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / TOGLPRNT / TOGGLPRT.BAS next >
Encoding:
BASIC Source File  |  1992-09-24  |  536 b   |  13 lines
  1. Global Const Cr = "Copyright JSS, Inc. 1992 - Steve Schiavo, Center Point, TX"
  2. Global Const ToggleTo = "Toggle to "
  3. Global Target As String
  4. Declare Function GetProfileString% Lib "kernel" (ByVal AppName$, ByVal KeyName$, ByVal Default$, ByVal Answer$, ByVal MaxLen%)
  5. Declare Function WriteProfileString% Lib "kernel" (ByVal AppName$, ByVal KeyName$, ByVal Insert$)
  6. Global Const True = -1
  7. Global Const False = 0
  8. Global HP2Default As String
  9. Global FAXdefault As String
  10. Global MaxSiz As Integer
  11. Global WasMinimized As Integer
  12.  
  13.