Public Class Form1 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load With Me .StartPosition = FormStartPosition.CenterScreen .TransparencyKey = Color.Black .FormBorderStyle = Windows.Forms.FormBorderStyle.None .BackColor = Color.Black .TopMost = True .Opacity = 0.99 End With With AxWindowsMediaPlayer1 .uiMode = "none" .windowlessVideo = True .URL = "film.avi" .Size = New Size(480, 260) End With End Sub End Class