codice:
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