tip1.addTipForArea(tempRect, Null, "foobar", "barfoo")
Public Sub addTipForArea(rectArg As Rect, svArg As ScrollView, titleArg As String, descArg As String)
...some code here
If svArg <> Null Then
rectArg.top = rectArg.Top + svArg.Top
rectArg.Bottom = rectArg.Bottom + svArg.top
End If
...more code here
End Sub