For this you'll have to override the forms 'OnPaint' method and add the drawing code there, like so:
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
Dim xn, yn, i As Integer
Dim midx, midy As Single
Dim Unitx, UnitY, OffsetX, OffsetY As Single
Dim p As New Pen(Color.Black, 4)
xn = 3
yn = 3
OffsetX = 30
OffsetY = 30
With Me
midx = (.Width / 2)
midy = (.Height / 2)
Unitx = (.Width - OffsetX) / (2 * xn)
UnitY = (.Height - OffsetY) / (2 * yn)
End With
e.Graphics.DrawLine(Pens.Orchid, 0, midy, Me.Width, midy)
For i = 1 To yn
e.Graphics.DrawLine(Pens.Black, 0, midy + UnitY * i, Me.Width, midy + UnitY * i)
e.Graphics.DrawLine(Pens.Black, 0, midy - UnitY * i, Me.Width, midy - UnitY * i)
Next i
e.Graphics.DrawLine(Pens.Orchid, midx, 0, midx, Me.Height)
For i = 1 To xn
e.Graphics.DrawLine(Pens.PaleGoldenrod, midx + Unitx * i, 0, midx + Unitx * i, Me.Height)
e.Graphics.DrawLine(Pens.PaleGoldenrod, midx - Unitx * i, 0, midx - Unitx * i, Me.Height)
Next i
End Sub