[help]fullscreen glitch[help]

Try
            Button1.Show()
            AxWindowsMediaPlayer1.fullScreen = True
            Button1.Focus()
            Button1.Top = True
        Catch ex As Exception
            MessageBox.Show("An error has occured, please contact the coder.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Button1.hide ()
        End Try

Public Class Form2

    Private Sub mexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mexit.Click
        Application.Exit()
    End Sub

    Private Sub play_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles play.Click
        AxWindowsMediaPlayer1.Ctlcontrols.play()
    End Sub

    Private Sub mstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mstop.Click
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
    End Sub

    Private Sub mpause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mpause.Click
        AxWindowsMediaPlayer1.Ctlcontrols.pause()
    End Sub

    Private Sub mup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mup.Click
        AxWindowsMediaPlayer1.settings.volume = AxWindowsMediaPlayer1.settings.volume + 10
    End Sub

    Private Sub mdown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mdown.Click
        AxWindowsMediaPlayer1.settings.volume = AxWindowsMediaPlayer1.settings.volume - 10
    End Sub

    Private Sub mmute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmute.Click
        If AxWindowsMediaPlayer1.settings.volume = AxWindowsMediaPlayer1.settings.mute() Then
            AxWindowsMediaPlayer1.settings.volume = 20
        Else
            AxWindowsMediaPlayer1.settings.volume = AxWindowsMediaPlayer1.settings.mute()
        End If
    End Sub

    Private Sub Open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Open.Click
        Try
            OpenFileDialog1.InitialDirectory = "My Computer"
            OpenFileDialog1.ShowDialog()
            AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
            AxWindowsMediaPlayer1.Ctlcontrols.play()
        Catch ex As Exception
            MessageBox.Show("An error has occured, please try again.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub FullScreenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FullScreenToolStripMenuItem.Click
        Try
            Button1.Show()
            AxWindowsMediaPlayer1.fullScreen = True
            Button1.Focus()
            Button1.Top = True
        Catch ex As Exception
            MessageBox.Show("An error has occured, please contact the coder.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Button1.Hide()
        End Try
    End Sub

    Private Sub NotifyIcon1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
        Me.Show()
        NotifyIcon1.Visible = False
    End Sub

    Private Sub MinimizeToTrayToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinimizeToTrayToolStripMenuItem.Click
        Me.Hide()
        NotifyIcon1.Visible = True
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AxWindowsMediaPlayer1.fullScreen = False
        Button1.Hide()
    End Sub
End Class