home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nagscrn / nagscrn.bas < prev    next >
Encoding:
BASIC Source File  |  1995-06-21  |  666 b   |  15 lines
  1. Declare Function GetPrivateProfileString% Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal lpDefault$, ByVal lpReturnedString$, ByVal nSize%, ByVal lpFilename$)
  2. Declare Function WritePrivateProfileString% Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal lpString$, ByVal lpFilename$)
  3. Declare Function SetSysModalWindow% Lib "User" (ByVal hWnd%)
  4. Global Const SerialNum$ = "1234567890"
  5. Global Const INIFILENAME$ = "nagscrn.ini"
  6. Global RegStat As String
  7. Global First As String
  8. Global Last As String
  9.  
  10. Sub SelectWholeText (InTextBox As Control)
  11.     InTextBox.SelStart = 0
  12.     InTextBox.SelLength = Len(InTextBox.Text)
  13. End Sub
  14.  
  15.