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

Public Class Form1
    Dim WithEvents Panel As New MyPanel With {.Dock = DockStyle.Fill, .Parent = _
      Me}
 
    Private Sub Panel_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Panel.Paint
        RefreshRaster(e)
    End Sub
 
    Sub RefreshRaster(e As PaintEventArgs) 'Erneuert den Raster
        Dim RasterGrafik As Graphics = e.Graphics
        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
End Class
 
Public Class MyPanel
    Inherits Panel
    Public Sub New()
        Me.SetStyle(ControlStyles.DoubleBuffer Or ControlStyles.UserPaint Or _
          ControlStyles.AllPaintingInWmPaint, True)
    End Sub