Mensaje enviado por Bonifacio <mtcastano@alcala.es>

Hola a todos,

Os comunico que el codigo que envió Alberto M. Vernieri hace exactamente lo que necesito. Una maravilla. Muchas gracias.

Recuerdo que el código es:

Ejemplo 2:

'==========================================================================
Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, _
                               X As Single, Y As Single)
Static XAnt as Single, YAnt as Single, bYaPase as Boolean

Picture1.DrawMode = 6
' ------------------ Borrado de la traza anterior ----------------------
If bYaPase Then
  Picture1.Line (XAnt, 0)-(XAnt, Picture1.Height) ' Linea que pasa por X
  Picture1.Line (0, YAnt)-(Picture1.Width, YAnt) ' Línea que pasa por Y
Else
  bYaPase = True
End If

' ------------------ Trazado de la nueva cruz --------------------------
 Picture1.Line (X, 0)-(X, Picture1.Height) ' Linea vertical que pasa por X
 Picture1.Line (0, Y)-(Picture1.Width, Y) ' Línea horizontal que pasa por Y

' ------------------- Salvado de los valores previos --------------------
XAnt = X
YAnt = Y

End Sub
' ==========================================================================


Saludos y gracias de nuevo.

                    Bonifacio