Così su due piedi:

codice:
 Dim x As Integer
 Dim y As Integer

 Dim MtListviewLocation As Point = AbsolutePosition(ListView1)


 Public Function AbsolutePosition(ByVal CurrentControl As Control) As Point
        If CurrentControl.Parent IsNot Nothing Then
            x += CurrentControl.Left
            y += CurrentControl.Top
            AbsolutePosition(CurrentControl.Parent)
        End If
        Return New Point(x, y)
    End Function