Private Sub PBx_DragOver(sender As Object, e As DragEventArgs) Handles PBx.DragOver
'PBx_ImgIns = Image Point
'PBx = Picturebox Control
Dim PBxPnt As Point = PBx.PointToClient(New Point(e.X, e.Y)) 'e.Y & e.X = Screen Point
PBx_ImgIns = New Point(CInt((CSng(Me.PBx.Image.Width) / Me.PBx.Width) * PBxPnt.X), CInt((CSng(Me.PBx.Image.Height) / Me.PBx.Height) * PBxPnt.Y))
End Sub
If anyone interested code example above gives picturebox control point, then the Picturebox image point, this should work for dropping an object at mouse location on a control