'*********************************************

' Vbasic declarations for Multimedia calls

'*********************************************

'DWORD mciSendString(lpstrCoMMand,lpstrReturnString,wReturnLength,hCallback)

Declare Function mciSendString Lib "c:\mwin\system\MMsystem" (ByVal lpCoMMand As String, ByVal lpReturnString As String, ByVal WReturnLength As Integer, ByVal hCallback As Integer) As Long

'BOOL mciExecute(lpstrCoMMand)

Declare Function mciExecute Lib "c:\mwin\system\MMsystem" (ByVal lpCoMMand As String) As Integer

'void MessageBeep(wAlert)

Declare Function MessageBeep Lib "c:\mwin\system\MMsystem" (ByVal Alert As Integer)

'WORD mciGetErrorString(dwError, lpstrBuffer, wLength)

Declare Function mciGetErrorString Lib "c:\mwin\system\MMsystem" (ByVal dwError As Long, ByVal lpBuffer As String, ByVal WReturnLength As Integer) As Integer

'WORD sndPlaySound(lpszSound, wFlags)

Declare Function sndPlaySound Lib "c:\mwin\system\MMsystem" (ByVal lpSound As String, ByVal Flags As Integer) As Integer

'****************************************

' Constants for Waveplayer

'****************************************

Global Const MB_OK = 0
Global Const MB_ICONASTERISK = 1
Global Const MB_ICONEXCLAMATION = 2
Global Const MB_ICONHAND = 3
Global Const MB_ICONQUESTION = 4
Global Const MB_STDBEEP = -1

Global Const FALSE = 0
Global Const TRUE = -1

Global Const KEY_RETURN = &HD
Global Const MODAL = 1

Global Const INSERT = 1    ' for line editing...
Global Const ALTER = 2

Global CancelOp As Integer
Global EditFunction As Integer