home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / address / address.glb < prev    next >
Text File  |  1993-07-05  |  610b  |  20 lines
  1. Global PrintCancel As Integer
  2. Global ThePath As String
  3. Global ErrorMsg As String
  4. Global TheComm As Integer
  5. Declare Function mciSendString Lib "MMsystem" (ByVal lpCommand As String, ByVal lpReturnString As String, ByVal WReturnLength As Integer, ByVal hCallBack As Integer) As Long
  6.  
  7. Function MMSend% (Cmd$)
  8. 'communicate with mmsystem. true if it worked. false if
  9. 'we have an error. note we use the main form handle for
  10. 'this call
  11. MMSend% = False
  12. Mlen% = 255
  13. Msg$ = String$(255, 0)
  14. Ret& = mciSendString(Cmd$, Msg$, Mlen%, Address.hWnd)
  15. If Ret& = 0 Then
  16.     MMSend% = True
  17. End If
  18. End Function
  19.  
  20.