Userform Positioning at Top-Left of Worksheet

[animas]

I am using a modeless userform which I want to postion at top-left corner of worksheet(above cell A1) when the form is activated.

I was using below code:

Private Sub UserForm_Activate()
 '// Form position with respect to application window
    With frmMenubar
        .Top = Application.Top + 170 '< change 125 to what u want
        .Left = Application.Left + 35 '< change 25 to what u want
    End With
End Sub

How do I change the code to put the form on top-left of worksheet?

 

[VoG]

This should help you http://www.cpearson.com/excel/FormPosition.htm

 

[animas]

I tried to follow that.
I put following code.

Private Sub UserForm_Activate()
    Dim PS As Positions
    frmMenubar.StartupPosition = 0
    PS = PositionForm(frmMenubar, Range("A1"), 0, 0, cstFvpAuto, cstFhpAuto)
    frmMenubar.Top = PS.FrmTop   ' set the Top position of the form
    frmMenubar.Left = PS.FrmLeft ' set the Left position of the form
        
End Sub

I wanted to position it starting from A1. No effect.