Private Sub Form_Load()
 
With MMControl1
.AutoEnable = True
.DeviceType = avivideo
 
.hWndDisplay = Picture1.hWnd
End With
MMControl1.Command = "stop": MMControl1.Command = "close"
CommonDialog1.Filter = "*.avi|*.avi"
CommonDialog1.Flags = &H1000
'CommonDialog1.Action = 1
MMControl1.FileName = "C:\Werbung1.avi"
MMControl1.Command = "open"
MMControl1.Command = "play"
 
End Sub