Private Const WM_EXITSIZEMOVE As Int32 = &H232
 
    Private Sub SetPosition()
        Dim x As Integer = CInt((Screen.PrimaryScreen.WorkingArea.Width - _
          Me.Width) / 2)
        Dim y As Integer = CInt((Screen.PrimaryScreen.WorkingArea.Height - _
        Me.Height) / 2)
        Me.Location = New Point(x, y)
    End Sub
 
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        '// Debug.WriteLine(m.ToString)
        If m.Msg = Me.WM_EXITSIZEMOVE Then
            Me.SetPosition()
        End If
        MyBase.WndProc(m)
    End Sub