Oh si scusatemi!
Non so se è sarà utile dato che ho aggiunto solo una condizione in un if!
Ma probabilemnte il codice non risolverà molti problemi forse perchè è una parte di codice molto specifica per il mio problema!
Grazie mille a tutti
Ciao Manuel

Ecco il codice:

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
a = X
b = Y
If ind = 2 Then
q = q + 1
If q = 1 Then
f = a
g = b
MsgBox (a)
ElseIf q = 2 Then
h = a
i = b
Picture1_Click
End If
End If
End Sub
__________________________________________________ _______________________

Public Sub Picture1_Click()
If ind = 1 Then
Picture1.Circle (a, b), 500, vbRed
End If
If ind = 2 And q = 2 Then
Picture1.Line (f, g)-(h, i), vbBlack
End If
End Sub