home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / update1a / module1.bas < prev    next >
Encoding:
BASIC Source File  |  1999-07-26  |  1.1 KB  |  29 lines
  1. Attribute VB_Name = "Module1"
  2. Declare Function mciSendString Lib "winmm.dll" _
  3. Alias "mciSendStringA" _
  4. (ByVal lpstrCommand As String, _
  5. ByVal lpstrReturnString As String, _
  6. ByVal uReturnLength As Long, _
  7. ByVal hwndCallback As Long) As Long
  8. Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, _
  9. ByVal lpstrBffer As String, ByVal uLength As Long) As Long
  10. Declare Function GetShortPathName Lib "kernel32" _
  11. Alias "GetShortPathNameA" _
  12. (ByVal lpszLongPath As String, _
  13. ByVal lpszShortPath As String, _
  14. ByVal cchBuffer As Long) As Long
  15.  
  16. Option Explicit
  17.  Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
  18.                                 ByVal hWndInsertAfter _
  19.                                 As Long, ByVal x _
  20.                                 As Long, ByVal y _
  21.                                 As Long, ByVal cx _
  22.                                 As Long, ByVal cy _
  23.                                 As Long, ByVal wFlags _
  24.                                 As Long) As Long
  25. Sub Main()
  26. frmSplash.Show
  27. End Sub
  28.  
  29.