Controlling Scroll Position When A Form Loads

I have been trying to make forms open scrolled to the top and have had very little success.

I found a function on the following site http://www.lebans.com/SelectRow.htm that works great as demonstrated and when I attach the following code to a text box the form scrolls to the top.

Private Sub Text98_Click()
Dim lngret As Long
lngret = fSetScrollBarPos(Me, 1)
DoEvents
End Sub

What I am trying to do is have the form scroll when it opens but by attaching the above code to the form's on_open event there is no effect.

What am I doing wrong.

Any ideas