Keskustelu: Ohjelmointikysymykset: VB6: Hiiren sijainti PictureBoxissa

Mitenkä saisi omasta PictureBox:sta hiiren sijainnin selville, eli GetCursorpos palauttaisi Boxsin koordinaatti eikä "näytön", boxsin vasen ylälaita olisi 0,0 jne...
Pitäisi päästä piirtämään Pictureboxsiin siihen kohdin missä hiiren osoitin sijaitsee.

Hiiren liikutus PictureBoxin yläpuolella aiheuttaa MouseMove-tapahtuman, jossa hiiren koordinaatit ovat saatavilla X- ja Y-muuttujissa:

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' onko vasen näppäin painettuna?
    If Button = vbLeftButton Then
        ' väritetään hiiren kohdalla oleva piste
        Picture1.PSet (X, Y)
    End If
End Sub

Mikä tossa on kun vasta vasemman näppäimen painallus ja hiiren liikuttaminen palauttaa x ja y arvon, jos hiirtä ei liikuta arvo ei palaudu.
Pitäisi saada sillein, että pelkkä hiiren vasemman näppäimen painallus palauttaisi x ja y:n arvon, muuten hyvä juttu.

edit.

Tarkoitus on piirtää pystyviiva boksin yläreunasta alareunaa siihen kohdin jossa hiiren näppäintä painetaan ja se x ja y:n arvo pitäisi saada muistiin myöhempää "käsittelyä" varten.

MouseDown-eventti tapahtuu silloin kun hiiren napin painaa alas.

Ok, nyt onnistuu, kiitti taas.