Dim zahlen_per_reihe As Integer = (Me.ZeichenBrett.Width - 2) / 16
        Dim x As Integer = Ceiling(e.X / 16) - 1
        Dim y As Integer = Ceiling(e.Y / 16) - 1
 
        If x >= 0 And y >= 0 And x <= zahlen_per_reihe And y <= _
          zahlen_per_reihe Then
            If IsMouseDown Then
                Dim CP = New Point(x * 16, y * 16)
                'If Not MyMausVerwaltung.Contains(CP) Then
                MyMausVerwaltung.Add(CP)
                Me.ZeichenBrett.Invalidate()
                'End If
            End If
        End If