Private Sub flxKontakte_MouseDownEvent(ByVal sender As Object, ByVal e As _
  AxVSFlex7L._IVSFlexGridEvents_MouseDownEvent) Handles _
  flxKontakte.MouseDownEvent
		If e.button = 2 And flxKontakte.Row > IIf(FilterAktiv, 1, 0) Then
			ctmKontaktÜbertragen.Enabled = Mitarbeiter.Berechtigung > _
  modProjekt.enuBerechtigung.Normal
			If Mitarbeiter.Berechtigung > modProjekt.enuBerechtigung.Normal Then
				ctmKontaktÜbertragen.MenuItems.Clear()
				Dim rsTemp As New ADODB.Recordset()
				With rsTemp
					.Open("SELECT VollständigerName FROM Mitarbeiter ORDER BY" & _
  "VollständigerName", cn, ADODB.CursorTypeEnum.adOpenStatic, _
  ADODB.LockTypeEnum.adLockReadOnly)
					While Not .EOF
						ctmKontaktÜbertragen.MenuItems.Add(.Fields("VollständigerName").Value, _
  New EventHandler(AddressOf MenüKontaktÜbertragen_Click))
						.MoveNext()
					End While
				End With
			End If
			ctmListe.Show(Me, New System.Drawing.Point(e.x / 15, e.y / 15))
		End If
	End Sub
 
	Protected Sub MenüKontaktÜbertragen_Click(ByVal sender As System.Object, ByVal _
  e As System.EventArgs)
		If ShowMessagebox("MsgÜbertragen", MessageBoxButtons.YesNo, _
MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, sender.Text) = _
DialogResult.Yes Then
'Übertragen
		End If
	End Sub