‘ Allgemeinteil
Dim WithEvents mp As Me.AxWindowsMediaPlayer
Sub Form_Load(sender as Object, e as EventArgs)
mp = New Me.AxWindowsMediaPlayer
With mp
.Location = New Point(100,100)
.Size = New Size (500,500)
.Visible = True
‘ usw
End With
Me.Controls.Add(mp)
End Sub