Visual Basic - Grilla de lineas sobre Imagenes

Hola, estoy tratando de crear una grilla (cuadriculas) sobre una imagen; o sea, tengo un PictureBox, dentro de este un ImageBox, este ultimo carga una imagen, lo que necesito es crear una grilla de lineas (line) sobre la imagen, seria muy simple crearlo en tiempo de diseño, el problema es que las imagenes se cargar en tiempo de ejecucion y por ende tanto el PictureBox como el ImageBox se redimensionan y la grilla creada en tiempo de diseño queda desubicada y aveces por detras del Imagebox

A ver si te sirve esto ...

Llamas al Sub indicandole el espaciado entre los puntos de la grilla y el PictureBox sobre el que quieres poner la misma ...

Ej: ... Call Print_Grid( 120, Me.Picture1 )

'''''''''

Private Sub Print_Grid( ByVal nEspaciado As Integer, ByRef oPicture As PictureBox )
Dim nX As Single, nY As Single
Dim nOldMode As Integer, nOldSize As Integer
Dim nRow As Integer, nCol As Integer, nStep As Integer
Dim nTheMouse As MousePointerConstants

nTheMouse = Screen.MousePointer

Screen.MousePointer = vbHourglass

nOldMode = oPicture.DrawMode
nOldSize = oPicture.DrawWidth

oPicture.DrawMode = vbInvert
oPicture.DrawWidth = 2


nStep = nEspaciado

nX = nStep
nY = nStep

If nStep > 5 Then
For nRow = 1 To Int(oPicture.ScaleHeight / nStep)
For nCol = 1 To Int(oPicture.ScaleWidth / nStep)
oPicture.PSet (nX, nY)
nX = nX + nStep
Next
nX = nStep
nY = nY + nStep
Next
End If

oPicture.DrawMode = nOldMode
oPicture.DrawWidth = nOldSize

Screen.MousePointer = nTheMouse
End Sub

'''''

Gracias, lo voy a probar.
Yo ponia 50 lineas (Vector) sobre el picture en invisible luego de dimensionar el picture le daba las coordenadas a cada linea horizontal y vertical. Eso estube probando pero es medio engorroso

Gracias mas una vez

Bien, ya funciona, con un par de variables manejo las dimensiones de los cuadros y el color de las lineas ya que en zonas muy oscuras de las fotos las lineas negras desaparecen
Gracias por tu ayuda