Hi, i'm using the code below. It works well, however the data displayed on that menu is more than 300 (data is coming from database). Is there anyway to put vertical scroll bar on the popupmenu? Thanks in advance.


Code:
Private Sub lvList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
     Dim li As MSComctlLib.ListItem
    
    If Button = 2 Then
        Set li = lvList.HitTest(x, y)
        
        If Not li Is Nothing Then
            Me.PopupMenu mnuTeams
        End If
        Set li = Nothing
    End If
End Sub