fileControlRightClicked 7/1/2014

gistfile1.txt

Sub fileControlRightClicked(ByVal sender As System.Windows.Forms.RichTextBox, ByVal e As System.Windows.Forms.MouseEventArgs)
    If e.Button <> Windows.Forms.MouseButtons.Right Then Return
    Dim cms = New ContextMenuStrip
    'cms.Parent = sender
    Dim item1 = cms.Items.Add("Select File")
    item1.Tag = 1
    AddHandler item1.Click, AddressOf openFileDialog
    cms.Show(sender, e.Location)
End Sub