BitmapToClient example for Visual Basic

    Dim szOut As String

    'Test a bitmap location for its screen location
    LEAD1.ScaleMode = 3 'pixels b/c I'm passing pixels
    LEAD1.BitmapToClient 50, 50
    szOut = ""
    szOut = szOut + "ClientX = " & CStr(LEAD1.ConvertX) & Chr(10) & Chr(13)
    szOut = szOut + "ClientY = " & CStr(LEAD1.ConvertY) & Chr(10) & Chr(13)
    MsgBox szOut