当我点击图像上的某处时，我想获取位置点。问题取决于我无法获得相同坐标的设备/分辨率（iphone，ipad等）。

我正在寻找一种获取相同位置的方法，而与设备/分辨率无关。

Private Sub CommandButton2_Click()
    Dim iCtr As Long
    For iCtr = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(iCtr) = True Then
            Me.ListBox2.AddItem Me.ListBox1.List(iCtr)
        End If
    Next iCtr

    For iCtr = Me.ListBox1.ListCount - 1 To 0 Step 1
        If Me.ListBox1.Selected(iCtr) = True Then
            Me.ListBox1.RemoveItem iCtr
        End If
    Next iCtr
End Sub