video med winmm.dll

HAHA... jeg fandt selv ud af det først ! 100 point til mig selv :-)

Public Function mciOpen(Filename As String, TypeDevice As String, sAlias As String, Optional hwnd As Long = 0&)
    Dim dwReturn As Long
    Dim tmp As String * 255
    Dim lenShort As Long
    Dim shortname As String
    lenShort = GetShortPathName(Filename, tmp, 255)
    shortname = Left$(tmp, lenShort)
    dwReturn = mciSendString("open " & shortname & " type " & TypeDevice & " alias " & sAlias & " parent " & CStr(hwnd) & " style " & CStr(&H40000000), 0&, 0&, 0&)
    dwReturn = mciSendString("put Musik window at 0 0 " & CStr(320) & " " & CStr(240), vbNullString, 0, 0&)
End Function