Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Button1.Click
        draw = True
        drawCross = False
        Me.Refresh()
        draw = False
    End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button3.Click
                For Each p As Point In points
                Me.Refresh()
            'Zeichne am Punkt p einen Größeren andersfärbigen Kreis
            Koordinat_Abfrage.Show()
 
        Next
 
    End Sub