Private Sub cmbZ_Einheit_MouseDown(ByVal sender As Object, ByVal e As  _
  System.Windows.Forms.MouseEventArgs) Handles cmbZ_Einheit.MouseUp
        If e.Button = MouseButtons.Right Then
            ' Code eingeben, was geschehen soll
        End If
End Sub