This is a basic of what i have.. works both Windows/Fullscreen
Dim Mx As Long, My As Long
Dim ImpactX As Single, ImpactY As Single, ImpactZ As Single
Dim Pick As TVCollisionResult
Inpt.GetAbsMouseState Mx, My
Set Pick = Land.MousePick(Mx, My)
If Pick.IsCollision Then
ImpactX = Pick.GetImpactPoint.x
ImpactY = Pick.GetImpactPoint.y
ImpactZ = Pick.GetImpactPoint.z
End If