Shell "c:\Program Files\BSPlayer\bsplayer.exe"
        Do
            DoEvents
            TheHandle = FindWindow("BSPlayer", "BSPlayer")
        Loop While TheHandle = 0

        SetParent TheHandle, Me.picContainer.hwnd

    Status = SendMessage(TheHandle, WM_BSP_CMD, BSP_GetStatus, 0
// 0 - STOP
// 1 - PAUSE
// 2 - PLAY
// 4 - No movie open

    Dim cds As COPYDATASTRUCT
    Dim buf(1 To 255) As Byte
    Dim sFileName as string
    sFileName = "c:\media\media file.something"

    Call CopyMemory(buf(1), ByVal sFileName, Len(sFileName))
    With cds
        .dwData = BSP_OpenFile
        .cbData = Len(sFileName) + 1
        .lpData = VarPtr(buf(1))
    End With
    Call SendMessage(TheHandle, WM_COPYDATA, 0, cds)

    SendMessage TheHandle, WM_BSP_CMD, BSP_Pause, 0
    SendMessage TheHandle, WM_BSP_CMD, BSP_Play, 0
    SendMessage TheHandle, WM_BSP_CMD, BSP_Stop, 0
    SendMessage TheHandle, WM_BSP_CMD, BSP_Forw, 0
    SendMessage TheHandle, WM_BSP_CMD, BSP_Rew, 0

Public Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetParent Lib "user32.dll" (ByVal hwnd As Long) As Long
Public Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Public Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, lpRect As RECT) As Long
Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
Public Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Public Type POINTAPI
        X As Long
        Y As Long
End Type

Public Const GWL_STYLE = (-16)
Public Const WS_CAPTION = &HC00000 ' WS_BORDER Or WS_DLGFRAME
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_SYSMENU = &H80000

Public Const WM_KEYDOWN = &H100

Public Const WM_CLOSE = &H10
Public Const WM_USER = &H400
Public Const WM_COPYDATA = &H4A
Public Const WM_BSP_CMD = WM_USER + 2


Public Type COPYDATASTRUCT
    dwData As Long   ' Use this to identify your message
    cbData As Long   ' Number of bytes to be transferred
    lpData As Long   ' Address of data
End Type

Public Const BSP_OpenFile = &H10108
Public Const BSP_FS_SWITCH = 10
Public Const BSP_Play = 20
Public Const BSP_Rew = 14
Public Const BSP_Forw = 15
Public Const BSP_Pause = 21
Public Const BSP_Stop = 22
Public Const BSP_Exit = 77
Public Const BSP_Mute = 35
Public Const BSP_GetStatus = &H10102
Public Const BSP_GetFileName = &H1010B

Private Enum ESetWindowPosStyles
    SWP_SHOWWINDOW = &H40
    SWP_HIDEWINDOW = &H80
    SWP_FRAMECHANGED = &H20 ' The frame changed: send WM_NCCALCSIZE
    SWP_NOACTIVATE = &H10
    SWP_NOCOPYBITS = &H100
    SWP_NOMOVE = &H2
    SWP_NOOWNERZORDER = &H200 ' Don't do owner Z ordering
    SWP_NOREDRAW = &H8
    SWP_NOREPOSITION = SWP_NOOWNERZORDER
    SWP_NOSIZE = &H1
    SWP_NOZORDER = &H4
    SWP_DRAWFRAME = SWP_FRAMECHANGED
    HWND_NOTOPMOST = -2
End Enum

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type