Private Sub MouseDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) handles ..(?)
        If (e.Button = MouseButtons.Right) Then
            Dim ugReceive As UltraGrid = CType(sender,UltraGrid)
            Dim MousePosition As Point = ugReceive.PointToClient( _
              Control.MousePosition)
            Dim aRowReceive As UltraGridRow = getRow(sender)
            If (Not (aRowReceive) Is Nothing) Then
 
                Dim mnu As ContextMenuStrip = New ContextMenuStrip
                AddHandler mnu.Items.Add("Finde Gruppe").Click, AddressOf _
                  Me.FindRelationClick
                        mnu.Items(0).Tag = aRowReceive.Cells( _
                        "GruppeNI").Value.ToString
                End Select
            End If
        End If

 Private Sub FindRelationClick(ByVal sender As Object, ByVal e As _
   System.EventArgs)
        Dim MenuItem As ToolStripMenuItem = CType(sender,ToolStripMenuItem)
        Dim StrukturRelationNI As String = CType(MenuItem.Tag,String)

Sector Twelve, or to Infinity and Beyond, whichever comes first.!