How to Enable Window+D and Window+M Shortcuts While Allowing Resizing in a Custom VB.

[IT_Researcher]

I'm working on a VB.Net windows form application where we needed a custom title bar, so we removed the default title bar from our form (by setting FormBorderStyle to None). After doing this, I found that resizing the form was not allowed.

Based on some research, I implemented the following code:

 Protected Overrides Sub WndProc(ByRef m As Message)	
        Const RESIZE_HANDLE_SIZE As Integer = 10	
        Select Case m.Msg	
            Case &H84	
                MyBase.WndProc(m)	
                'rsd 21.07.23 (1) s	
                'Resize not allowed for embedded exe	
                If IsEmbeddedExe() Then Exit Sub	
                'rsd 21.07.23 (1)	
                If CInt(m.Result) = &H1 Then	
                    Dim screenPoint As Point = New Point(m.LParam.ToInt32())	
                    Dim clientPoint As Point = Me.PointToClient(screenPoint)	
                    If clientPoint.Y <= RESIZE_HANDLE_SIZE Then	
                        If clientPoint.X <= RESIZE_HANDLE_SIZE Then	
                            m.Result = CType(13, IntPtr)	
                        ElseIf clientPoint.X < (Size.Width - RESIZE_HANDLE_SIZE) Then	
                            m.Result = CType(12, IntPtr)	
                        Else	
                            m.Result = CType(14, IntPtr)	
                        End If	
                    ElseIf clientPoint.Y <= (Size.Height - RESIZE_HANDLE_SIZE) Then	
                        If clientPoint.X <= RESIZE_HANDLE_SIZE Then	
                            m.Result = CType(10, IntPtr)	
                        ElseIf clientPoint.X < (Size.Width - RESIZE_HANDLE_SIZE) Then	
                            m.Result = CType(2, IntPtr)	
                        Else	
                            m.Result = CType(11, IntPtr)	
                        End If	
                    Else	
                        If clientPoint.X <= RESIZE_HANDLE_SIZE Then	
                            m.Result = CType(16, IntPtr)	
                        ElseIf clientPoint.X < (Size.Width - RESIZE_HANDLE_SIZE) Then	
                            m.Result = CType(15, IntPtr)	
                        Else	
                            m.Result = CType(17, IntPtr)	
                        End If	
                    End If	
                End If	
                Return	
        End Select	
        MyBase.WndProc(m)	
    End Sub

This solved the resizing issue, but now windows+D and windows+M shortcuts were not working.

Using below code windows+D and windows+M shortcuts were working, but resizing issue reappeared.

  Private Const WS_SYSMENU As Integer = &H80000
    Private Const WS_MINIMIZEBOX As Integer = &H20000
    Protected Overrides ReadOnly Property CreateParams As CreateParams
        Get
            Dim p As CreateParams = MyBase.CreateParams
            'here the window has a system menu and a minimize button. It checks if these styles are already present If not, it adds them to the window style.
            p.Style = p.Style Or WS_SYSMENU Or WS_MINIMIZEBOX
            Return p
        End Get
    End Property

My Requirements:

1. The Window+D and Window+M shortcuts should work.
2. The form should be resizable.

I also found out from the Microsoft official site that when Window+D is pressed, no message is received by the application, and everything is handled by the OS.How can I enable Window+D and Window+M shortcuts in my VB.Net form while also allowing the form to be resizable? Any help or guidance would be greatly appreciated!