Input af avi-gif

se her : http://vbnet.mvps.org/code/bitmap/loadgif.htm :D

Avi ' Tilføj -> Windows Media Player (CTRL+T)

Private Sub Command1_Click()
  MediaPlayer1.Stop
End Sub

Private Sub Form_Load()
  With MediaPlayer1
      .ShowControls = False
      .FileName = "D:\avi\min.avi"
      .AutoStart = True
  End With
End Sub

'Hvis den skal Loop, så kan du starte den igen her..
Private Sub MediaPlayer1_EndOfStream(ByVal Result As Long)
  MediaPlayer1.Play
End Sub