Dibujar un rectangulo de 2x2 en picturebox y poder borrarlo

[pkj]

A ver si esto te sirve de ayuda. Simplemente pinta una grilla de 2x2 en un picture al pinchar con el boton izquierdo, y al pinchar con el derecho la pinta con el color de fondo del picture haciendo que desaparezca. Puedes memorizar las coordenadas y poner un boton deshacer en lugar del boton derecho.

Si tu picture tiene ya algo dibujado debajo del recuadro, borrar la grilla será más complicado que esto, pero quizá te pueda servir de ayuda.

Para probarlo, solo crea un proyecto con un picture (picture1) y pega el código.

Código vb:

Private Type Coordenada
  X As Integer
  Y As Integer
End Type
 
Dim PuntoClick As Coordenada
Dim ColorLineas As ColorConstants
 
Private Sub PintaGrilla(Pic As PictureBox, ByVal X As Long, ByVal Y As Long, Optional ByVal Color As ColorConstants = vbBlack, Optional ByVal LongLin As Long = 500)
  Pic.ForeColor = Color
  Pic.Line (X - LongLin, Y)-(X + LongLin, Y)
  Pic.Line (X, Y - LongLin)-(X, Y + LongLin)
  Pic.Line (X - LongLin, Y - LongLin)-(X + LongLin, Y - LongLin)
  Pic.Line (X - LongLin, Y + LongLin)-(X + LongLin, Y + LongLin)
  Pic.Line (X - LongLin, Y - LongLin)-(X - LongLin, Y + LongLin)
  Pic.Line (X + LongLin, Y - LongLin)-(X + LongLin, Y + LongLin)
End Sub
 
Private Sub Picture1_Click()
  PintaGrilla Picture1, PuntoClick.X, PuntoClick.Y, ColorLineas
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  PuntoClick.X = X
  PuntoClick.Y = Y
  ColorLineas = IIf(Button = vbLeftButton, vbBlack, Picture1.BackColor)
End Sub
 

Saludos