Prevent form/timer hanging while holding the minimize button

Question

I got troubles when the customers holding the minimize button (without release) on my form, it make all forms and all timers/controls entirely hanging. And thus make some exception bugs for my application.
 Steps to Reproduce Behavior:
In Form1,  create a Timer1 & Label1 and paste this code :
Public Class Form1
Public a As Long
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 1
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
a = a + 1
Label1.Text = a
End Sub
End Class
Press F5 to run the application. You will see the number display on Label1 increase rapidly. Now try to hold the Minimize button and the timer will hang up, label1 stop increasing. Release the minimize button will make the timer resume increasing.
I want my timer and all controls in form still working while holding the minimize button. Is there any good resolution for my issue ?

Answer 1

various possible resolution. remove controlbox. remove text. draw text if wanted. draw controls. use system.timers.timer. system menu removed so no menu for move size minimize maximize close available.
https://msdn.microsoft.com/en-us/library/system.timers.timer(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1
form transparent background in image. movement or buttons not affect timer may affect display speed.
Option Strict On
Imports System.Timers
Public Class Form1
' Code from this link - http://www.dreamincode.net/forums/topic/275178-drawing-icon-on-form-border/
WithEvents Timer1 As New System.Timers.Timer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
Me.ControlBox = False
Me.Text = ""
Me.Location = New Point(CInt((Screen.PrimaryScreen.WorkingArea.Width / 2) - (Me.Width / 2)), CInt((Screen.PrimaryScreen.WorkingArea.Height / 2) - (Me.Height / 2)))
Timer1.Interval = 10
AddHandler Timer1.Elapsed, AddressOf Timer1_Elapsed
End Sub
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Timer1.Enabled = False
End Sub
'A form with custom border and title bar.
'Some functions, such as resize the window via mouse, are not implemented yet.
'The color and the width of the border.
Private borderColor As Color = Color.GreenYellow
Private borderWidth As Integer = 3
'The color and region of the header.
Private headerColor As Color = Color.GreenYellow
Private headerRect As Rectangle
'The region of the client.
Private clientRect As Rectangle
'The region of the title text.
Private titleRect As Rectangle
'The region of the minimum button.
Private miniBoxRect As Rectangle
'The region of the maximum button.
Private maxBoxRect As Rectangle
'The region of the close button.
Private closeBoxRect As Rectangle
'The states of the three header buttons.
Private miniState As ButtonState
Private maxState As ButtonState
Private closeState As ButtonState
'Store the mouse down point to handle moving the form.
Private x As Integer = 0
Private y As Integer = 0
'The height of the header.
Const HEADER_HEIGHT As Integer = 25
'The size of the header buttons.
ReadOnly BUTTON_BOX_SIZE As Size = New Size(15, 15)
Dim Test As Boolean = False
Private Sub CustomBorderColorForm_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
'Draw the header.
Using b As Brush = New SolidBrush(Color.FromArgb(10, Color.White))
e.Graphics.FillRectangle(b, headerRect)
End Using
'Draw the title text
If Test = False Then
Using b As Brush = New SolidBrush(Me.ForeColor)
e.Graphics.DrawString("Anything you want Baby", Me.Font, b, titleRect)
End Using
ElseIf Test = True Then
Using b As Brush = New SolidBrush(Me.ForeColor)
e.Graphics.DrawString("Hello Dolly", Me.Font, b, titleRect)
End Using
End If
'Draw the header buttons.
If Me.MinimizeBox Then
ControlPaint.DrawCaptionButton(e.Graphics, miniBoxRect, CaptionButton.Minimize, miniState)
End If
If Me.MinimizeBox Then
ControlPaint.DrawCaptionButton(e.Graphics, maxBoxRect, CaptionButton.Maximize, maxState)
End If
If Me.MinimizeBox Then
ControlPaint.DrawCaptionButton(e.Graphics, closeBoxRect, CaptionButton.Close, closeState)
End If
'Draw the border.
ControlPaint.DrawBorder(e.Graphics, clientRect, borderColor, _
borderWidth, ButtonBorderStyle.Solid, borderColor, borderWidth, ButtonBorderStyle.Solid, borderColor, borderWidth, ButtonBorderStyle.Solid, borderColor, borderWidth, ButtonBorderStyle.Solid)
End Sub
'Handle resize to adjust the region ot border, header and so on.
Private Sub CustomBorderColorForm_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
headerRect = New Rectangle(Me.ClientRectangle.Location, New Size(Me.ClientRectangle.Width, HEADER_HEIGHT))
clientRect = New Rectangle(New Point(Me.ClientRectangle.Location.X, Me.ClientRectangle.Y + HEADER_HEIGHT), _
CType(New Point(Me.ClientRectangle.Width, Me.ClientRectangle.Height - HEADER_HEIGHT), Drawing.Size))
Dim yOffset = (headerRect.Height + borderWidth - BUTTON_BOX_SIZE.Height) / 2
titleRect = New Rectangle(CInt(yOffset), CInt(yOffset), _
CInt(Me.ClientRectangle.Width - 3 * (BUTTON_BOX_SIZE.Width + 1) - yOffset), _
BUTTON_BOX_SIZE.Height)
miniBoxRect = New Rectangle(Me.ClientRectangle.Width - 3 * (BUTTON_BOX_SIZE.Width + 1), _
CInt(yOffset), BUTTON_BOX_SIZE.Width, BUTTON_BOX_SIZE.Height)
maxBoxRect = New Rectangle(Me.ClientRectangle.Width - 2 * (BUTTON_BOX_SIZE.Width + 1), _
CInt(yOffset), BUTTON_BOX_SIZE.Width, BUTTON_BOX_SIZE.Height)
closeBoxRect = New Rectangle(Me.ClientRectangle.Width - 1 * (BUTTON_BOX_SIZE.Width + 1), _
CInt(yOffset), BUTTON_BOX_SIZE.Width, BUTTON_BOX_SIZE.Height)
Me.Invalidate()
End Sub
Private Sub CustomBorderColorForm_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
'Start to move the form.
If (titleRect.Contains(e.Location)) Then
x = e.X
y = e.Y
End If
'Check and press the header buttons.
Dim mousePos As Point = Me.PointToClient(Control.MousePosition)
If (miniBoxRect.Contains(mousePos)) Then
miniState = ButtonState.Pushed
ElseIf (maxBoxRect.Contains(mousePos)) Then
maxState = ButtonState.Pushed
ElseIf (closeBoxRect.Contains(mousePos)) Then
closeState = ButtonState.Pushed
End If
End Sub
Private Sub CustomBorderColorForm_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
'Move and refresh.
If (x <> 0 And y <> 0) Then
Me.Location = New Point(Me.Left + e.X - x, Me.Top + e.Y - y)
Me.Refresh()
End If
End Sub
Private Sub CustomBorderColorForm_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
'Reset the mouse point.
x = 0
y = 0
'Check the button states and modify the window state.
If miniState = ButtonState.Pushed Then
Me.WindowState = FormWindowState.Minimized
miniState = ButtonState.Normal
ElseIf maxState = ButtonState.Pushed Then
If Me.WindowState = FormWindowState.Normal Then
Me.WindowState = FormWindowState.Maximized
maxState = ButtonState.Checked
Else
Me.WindowState = FormWindowState.Normal
maxState = ButtonState.Normal
End If
ElseIf closeState = ButtonState.Pushed Then
Me.Close()
End If
End Sub
'Handle this event to maxmize/normalize the form via double clicking the title bar.
Private Sub CustomBorderColorForm_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDoubleClick
If (titleRect.Contains(e.Location)) Then
If Me.WindowState = FormWindowState.Normal Then
Me.WindowState = FormWindowState.Maximized
maxState = ButtonState.Checked
Else
Me.WindowState = FormWindowState.Normal
maxState = ButtonState.Normal
End If
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Test = False Then
Test = True
Me.Invalidate()
Else
Test = False
Me.Invalidate()
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If Timer1.Enabled = False Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub
Private Sub Timer1_Elapsed(sender As Object, e As ElapsedEventArgs)
Invoke(New Timer1sDelegate(AddressOf Timer1sSub))
End Sub
Private Delegate Sub Timer1sDelegate()
Private Sub Timer1sSub()
Label1.Text = Now.Ticks.ToString
End Sub
End Class
La vida loca