Private Sub Form_Resize()

Select Case Me.WindowState
Case FormWindowStateConstants.vbNormal
MsgBox "Normal"
Case FormWindowStateConstants.vbMaximized
MsgBox "Maximized"
Case FormWindowStateConstants.vbMinimized
MsgBox "Minimized"
End Select
End Sub