[VB6] Recuperare le coordinate in pixel di un'immagine muovendo il mouse

[Peter_Pan]

Bene ho una PictureBox e passando con il mouse vorrei sapere le coordinate in pixel, ora uso il seguente codice che mi da delle coordinate ma evidentemente non sono in pixel:

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Text1.Text = X
    Text2.Text = Y
    If Button = 1 Then
        Text3.Text = ""
        Text3.Text = X
        Text4.Text = ""
        Text4.Text = Y
        MsgBox ("hai premuto " & X & " pos " & Y)
    End If
End Sub

Quando muovo il mouse queste coordinate vengono segnate in due text, text1 e 2

[Peter_Pan]

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    strX = Me.ScaleX(X, vbTwips, vbPixels)
    strY = Me.ScaleY(Y, vbTwips, vbPixels)
    If Button = 1 Then
        Text3.Text = ""
        Text3.Text = strX
        Text4.Text = ""
        Text4.Text = strY
        MsgBox ("hai premuto " & strX & " pos " & strY)
    End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    strX = Me.ScaleX(X, vbTwips, vbPixels)
    strY = Me.ScaleY(Y, vbTwips, vbPixels)
    Text1.Text = strX
    Text2.Text = strY
End Sub