Form_Load()

Form1.MMControl1.Enabled = True
Form1.MMControl1.Notify = True
Form1.MMControl1.DeviceType = "AVIVideo"
Form1.MMControl1.filename = App.Path & "\filrulle.avi" 'Sökväg till AVI-filen
Form1.MMControl1.hWndDisplay = Picture1.hWnd
Form1.MMControl1.Command = "open"



Form_Unload()

MMControl1.Command = "Close"


Picture1_Paint

Form1.MMControl1.Command = "Play"