listbox question

[Pouncer]

ok guys 2 questions..

1)

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
        If List1.ListIndex > 0 Then
            PopupMenu mnuOpen
        End If
    End If
End Sub

this should bring the popup up if i right click on an item in the listhbox, however it doesnt work for when i right click on the first item in the listbox.. the popup doesnt come up

2)
How can i add a vertical scrollbar to my listbox. at runtime if the listbox fills up with data quickly it automatically creates a horizontal scrollbar, but i need a vertical one too at the bottom of the listbox