Public Class Form1
  Dim rectRechteck As New Rectangle(20, 30, 70, 70)
  Dim rectfKreis As New RectangleF(105, 40, 50, 50)
  Dim rectfEllipse As New RectangleF(170, 40, 80, 50)

  Private Sub Form1_MouseMove(ByVal sender As Object, _
       ByVal e As System.Windows.Forms.MouseEventArgs) Handles _
       Me.MouseMove
    Dim i As Boolean = False
     'Alle Bereiche (Rect-Variablen) auf Mausposition testen
    If rectRechteck.Contains(e.Location) Then
      Me.Text = "Rechteck"
      i = True
    End If
    If rectfKreis.Contains(e.Location) Then
      Me.Text = "Kreis"
      i = True
    End If
    If rectfEllipse.Contains(e.Location) Then
      Me.Text = "Ellipse"
      i = True
    End If
    If i = False Then Me.Text = ""
  End Sub

  Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
       System.Windows.Forms.PaintEventArgs) Handles Me.Paint
     'Kein Paintereignis bei Stellung "Ohne Grafik"
    If Button1.Text = "Ohne Grafik" Then Exit Sub
      'Ansonsten Zeichnen der Formen
      Dim g As Graphics = e.Graphics
      Dim mypen As New Pen(Color.Black, 1)

      g.DrawRectangle(mypen, rectRechteck)
      g.DrawEllipse(mypen, rectfKreis)
      g.DrawEllipse(mypen, rectfEllipse)
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles Button1.Click
    If Button1.Text = "Mit Grafik" Then
      Button1.Text = "Ohne Grafik"
      Label1.Text = "Bewege die Maus über die Bereiche"
    Else
      Button1.Text = "Mit Grafik"
      Label1.Text = "Bewege die Maus über die Formen"
    End If
    Me.Refresh()
  End Sub

  Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.MouseLeave
    Me.Text = "Bereich abfragen"
  End Sub
End Class