Private Sub cbWH_CheckedChanged (sender As System.Object,  e As _
    System.EventArgs) Handles cbWH.CheckedChanged
  Dim rect1 As Rectangle = Rect
 
  If cbWH.Checked Then
    If Rect.Width/16 > Rect.Height/9 Then
      Rect.Height = CInt(Math.Truncate(rect1.Height/9)*9)
      Rect.Width = CInt(Math.Truncate(rect1.Height/9)*16)
      Rect.X += CInt((rect1.Width-Rect.Width)/2)
      Rect.Y += CInt((rect1.Height-Rect.Height)/2)
    ElseIf Rect.Width/16 < Rect.Height/9 Then
      Rect.Width = CInt(Math.Truncate(rect1.Width/16)*16)
      Rect.Height = CInt(Math.Truncate(rect1.Width/16)*9)
      Rect.X += CInt((rect1.Width-Rect.Width)/2)
      Rect.Y += CInt((rect1.Height-Rect.Height)/2)
    Else
      Exit Sub
    End If
 
    pb1.Refresh
  End If
  End Sub
 
  Private Sub pb1_Paint(sender As Object, e As PaintEventArgs) Handles pb1.Paint
  Dim p As New Pen(Color.Red, 1)
 
  e.Graphics.DrawRectangle(p, Rect)
 
  xM = Rect.X+CInt(Rect.Width/2) 
  yM = Rect.Y+CInt(Rect.Height/2)
 
  With e.Graphics
    .FillEllipse(Brushes.Cyan,Rect.X-4, Rect.Y-4, 8, 8)
    .DrawEllipse(p, Rect.X-4, Rect.Y-4, 8, 8)
 
    .FillRectangle(Brushes.Cyan, xM, Rect.Y-4, 8, 8)
    .DrawRectangle(p, xM, Rect.Y-4, 8, 8)
 
    .FillRectangle(Brushes.Cyan, Rect.X-4, yM-4, 8, 8)
    .DrawRectangle(p, Rect.X-4, yM-4, 8, 8)
  End With
  End Sub
 
 
  Private Function getRecType(x As Integer, y As Integer) As String
  Dim rectOL As New Rectangle(Rect.X-4, Rect.Y-4, 8, 8) 
  Dim rectOM As New Rectangle(xM, Rect.Y-4, 8, 8) 
  Dim rectML As New Rectangle(Rect.X-4, yM-4, 8, 8) 
 
  If rectOL.Contains(x,y) Then 
    getRecType = "OL"
  ElseIf rectOM.Contains(x,y) Then 
    getRecType = "OM"
  ElseIf rectML.Contains(x,y) Then 
    getRecType = "ML"
  ElseIf Rect.Contains(x,y)
    getRecType = "Rect"
  Else
    getRecType = "0"
  End If
  End Function
 
End Class