[VB6] Errore in tracciamento figure

[lospanu]

Ciao a tutti!
Ho un piccolo problema che sicuramente non è dovuto a visual basic!
Anzi...
Io ho queste due funzioni riguardanti una picturebox!
Nella prima al click del mouse assegno alle variabili a e b le coordinate del mouse e nella seconda disegno una linea o un cerchio a seconda del valore dell'indice [ind]...

Il problema è tutto qui!
Io voglio disegnare una linea.imposto l'indice a 2 con un bottone.
Clicco sulla picture box.
Il tutto avviene correttamente e mi disegna una retta che inizia dove ho cliccato la prima volta e finisce dove ho cliccato la seconda volta!
Il problmea dov'è??
Se io tolgo la riga di codice:
MsgBox (a)
il programma non funziona più correttamente e disegna prima una riga che va da dal vertice in alto a sinistra della picture a dove ho cliccato la prima volta e poi ne disegna un'altra da dove ho cliccato la prima volta a dove ho cliccato la seconda!
Perchè???
Avete qualche suggerimento??
Grazie a tutti!

Vi posto il codice

Manuel

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 Then
Picture1.Line (f, g)-(h, i), vbBlack
End If
End Sub

Msgbox (a) MsgBox (a)

[lospanu]

Risolto!!
Grazie mille a tutti lo stesso!

Ciao
Manuel

[alka]

Originariamente inviato da lospanu
Risolto!!
Grazie mille a tutti lo stesso!

L'etica del forum in genere suggerisce di postare la soluzione, in modo che possa essere utile ad altri utenti che potrebbero trovarsi ad affrontare lo stesso problema in futuro.

[lospanu]

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