Private Sub Panel_Paint(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs) Handles Panel.Paint
        RefreshRaster()
    End Sub
 
Sub RefreshRaster() 'Erneuert den Raster
        Dim RasterGrafik As System.Drawing.Graphics
        RasterGrafik = Panel.CreateGraphics
        Dim Farbe As New System.Drawing.Pen(System.Drawing.Color.Red)
        Farbe.Width = 1
        For i = 10 To Panel.Width Step 10
        RasterGrafik.DrawLine(Farbe, i, 0, i, Panel.Height) 'x1,y1,x2,y2
        Next i
 
        For i = 10 To Panel.Height Step 10
        RasterGrafik.DrawLine(Farbe, 0, i, Panel.Width, i) 'x1,y1,x2,y2
        Next i
 
    End Sub