Option Strict On
 
Public Class Form1
    Private path As New System.Drawing.Drawing2D.GraphicsPath 'Das Polygon
 
    Public Sub New()
        InitializeComponent()
        'Polygon zum Pfad hingzufügen
        path.AddPolygon(New Point() {New Point(40, 40), New Point(80, 40), New _
          Point(80, 80)})
    End Sub
 
 
    Private Sub Form1_MouseMove(sender As Object, e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        Dim b As Boolean = path.IsVisible(e.Location) 'Prüfen ob Mauszeiger im 
        ' Polygon ist
        Label1.Text = If(b, "Ja", "Nein")
    End Sub
 
    Private Sub Form1_Paint(sender As Object, e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim g As Graphics = e.Graphics
        g.FillPath(Brushes.Black, path) 'Polygon zeichnen
    End Sub
End Class

e.Graphics.FillPolygon(Brushes.Gray, New Point() {New Point(650, ScreenH - 20), _
  New Point(675, ScreenH - 70), New Point(700, ScreenH - 20)})