Kod:
Private Sub listView0_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
If Button = acRightButton Then
Set MyMenu = CommandBars("CommandBarDeneme")
MyMenu.ShowPopup
End If
End Sub
listviewin ismi listview0 sa ve commandbar adi CommandBarDeneme ise
listviewe sag tikladiginizda kisayol menu cubugu gorunecekdir
SÖZ VERİYORUM... USLU DURUCAM...
