' AVI-File öffnen
Private Sub AVI_Open(ByVal sFile As String)
  Dim sBuffer As String * 256
  Dim nResult As Long
 
  ' DOS-Namen ermitteln (8.3-Format)
  nResult = GetShortPathName(sFile, sBuffer, Len(sBuffer))
  sFile = Left$(sBuffer, nResult)
 
  ' AVI öffnen
  ' öffnet ein Gerät und eine Multimedia-Datei
  mciSendString "open " & sFile & " type avivideo" & _
    " alias myAVI", 0, 0, 0
 
  ' Anzeige in der PictureBox
  mciSendString "window myAVI handle " & _
    CStr(Me.hWnd), 0, 0, 0 ' hier stand Picture.hWnd
End Sub