Form Style Hide Title Bar and Borders

I have a VB6 program that uses these 2 APIs

    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As IntPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As IntPtr, ByVal nIndex As Long) As Long


I use them to hide the title bar and to make the form borderless.  I have 2 buttons on the form and I am able to hide / unhide the title bar depending on the button clicked.

I would like to do this in VB.NET 2008 but I have not been able to reproduce it.  I am able to get the form with out borders and title bar by using the below code.


    Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.Style = cp.Style And Not &HC00000 ' WS_CAPTION
            cp.Style = cp.Style And Not &H800000 ' WS_BORDER
            Return cp
        End Get
    End Property

I am not sure though how to let the user switch back to the default form style.
Start Free Trial