[RESOLVED] Fullscreen, can't show msgbox / forms!

[macbrutal]

Hello guys! I've a really nice fullscreen code I found on the internet, the only problem I found was that you can't make msgbox show or open another form! Which is really bothering me making panels.visible = true/false to make a cheap way of "Forms"



Form1.

Private Sub TryToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Call normalScreen()
    End Sub

Module.

Module Module1
    Private Declare Function SetWindowPos Lib "user32.dll" Alias "SetWindowPos" (ByVal hWnd As IntPtr, ByVal hWndIntertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As Integer) As Boolean
    Private Declare Function GetSystemMetrics Lib "user32.dll" Alias "GetSystemMetrics" (ByVal Which As Integer) As Integer
    Private Const SM_CXSCREEN As Integer = 0
    Private Const SM_CYSCREEN As Integer = 1
    Private HWND_TOP As IntPtr = IntPtr.Zero
    Private Const SWP_SHOWWINDOW As Integer = 64
    Public ReadOnly Property ScreenX() As Integer
        Get
            Return GetSystemMetrics(SM_CXSCREEN)
        End Get
    End Property

    Public ReadOnly Property ScreenY() As Integer
        Get
            Return GetSystemMetrics(SM_CYSCREEN)
        End Get
    End Property
    Public Sub FullScreen()
        Form1.WindowState = FormWindowState.Maximized
        Form1.FormBorderStyle = FormBorderStyle.None
        Form1.TopMost = True
        SetWindowPos(Form1.Handle, HWND_TOP, 0, 0, ScreenX, ScreenY, SWP_SHOWWINDOW)
    End Sub
    Public Sub normalScreen()
        Form1.WindowState = FormWindowState.Maximized
        Form1.FormBorderStyle = FormBorderStyle.FixedDialog
        Form1.TopMost = True
        SetWindowPos(Form1.Handle, HWND_TOP, 0, 0, ScreenX, ScreenY, SWP_SHOWWINDOW)
    End Sub

    Public Sub NormalMode()
        ' restore the window size back to default
        Form1.WindowState = FormWindowState.Normal
        ' change the form’s border style so the border is visible
        ' note that SizableToolWindow is just what I’ve used – there are other options available if you have code auto-completion enabled
        Form1.FormBorderStyle = FormBorderStyle.FixedSingle
        ' change the window so it’s not the on top
        Form1.TopMost = True
    End Sub
End Module