home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch21code / sysmain.bas < prev    next >
Encoding:
BASIC Source File  |  1995-08-14  |  613 b   |  22 lines
  1. Attribute VB_Name = "modMain"
  2. Option Explicit
  3.  
  4. ' Declare Windows API functions for checking system configuration.
  5. Sub main()
  6.     ' Debug code for testing object library.
  7.     #Const DebugBuild = 0
  8.     #If DebugBuild Then
  9.         Dim x As New Information
  10.         x.MakeVisible
  11.         MsgBox x.IsRunning("Microsoft Word")
  12.         MsgBox x.MeetsCriteria(486, 16)
  13.         Dim y As New FileIO
  14.         MsgBox y.TempFileName(Prefix:="foo")
  15.         MsgBox y.SystemDirectory
  16.         Dim z As New Keyboard
  17.         ' Toggle NumLock key.
  18.         z.NumLock = Not z.NumLock
  19.         End
  20.     #End If
  21. End Sub
  22.