home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / global.bas < prev    next >
Encoding:
BASIC Source File  |  1995-07-26  |  591 b   |  21 lines
  1. Attribute VB_Name = "Module1"
  2. ' Public Constants
  3. Public Const conMCIAppTitle = "MCI Control Application"
  4.  
  5. ' These constants are defined in mmsystem.h.
  6. Public Const conMCIErrInvalidDeviceID = 30257
  7. Public Const conMCIErrDeviceOpen = 30263
  8. Public Const conMCIErrCannotLoadDriver = 30266
  9. Public Const conMCIErrUnsupportedFunction = 30274
  10. Public Const conMCIErrInvalidFile = 30304
  11.  
  12. # If Win32 Then
  13.     Declare Function GetFocus Lib "User32" () As Long
  14. # Else
  15.     Declare Function GetFocus Lib "User" () As Integer
  16. # End If
  17.  
  18. ' Public variables
  19. Public DialogCaption As String
  20.  
  21.