Почему не работает UBound?

Подскажите, как в данном примере, правильно работать с указателем на массив.
1. Получить верхнюю границу массива, передавая в функцию UBound() указатель на массив.
2. Передать указатель на массив в функцию и там обработать его, на пример функцией UBound()

Dim As Integer Arr(2)={1,2,3}
Dim As Integer Ptr pArr=@Arr(0)

? UBound(peek(pArr)) ' НЕ РАБОТАЕТ

Sub Fn(i As Integer Ptr)
? UBound(*i) 'НЕ РАБОТАЕТ
End Sub

Fn(pArr)

Sleep

Сам спросил, сам ответил  

Dim As Integer Arr(2)={1,2,3}
Dim As Integer Ptr pArr=@Arr(0)

Sub Fn(pI As Integer Ptr, Count As Integer)
   For i As Integer=0 To Count
       ? *(pI+i)
   Next
End Sub

Fn(pArr, UBound(Arr))

Sleep

Вообще UBound должна работать только с массивами, а не указателями на первый элемент массива.
Массив во фрибейсике — это объект, хранящий нижнюю и верхнюю границы.