دوست عزیز ان کنترلها context menu هستند که زیاد با منو فرقی ندارند کافی داخل برنامتون یک همچین کدی بنویسید
Dim m As New ContextMenu
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
m.MenuItems.Add("sfsdfsdf")
m.MenuItems.Add("cvbvcbvcb")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
m.Show(Me, New Point(Me.Button1.Location.X, Me.Button1.Location.Y + Me.Button1.Height))
End Sub
در این کد با زدن دکمه یک منو زیرش نمایان می شود