Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim Player As WMPLib.WindowsMediaPlayer = New WMPLib.WindowsMediaPlayer( _
        )
        Player.URL = "D:\filmchen.wmv"
        Player.controls.play()
    End Sub
End Class