Private IPCamFrameRates As New Dictionary(Of String, Integer)()
 
    Private Sub frmSettings_Load(sender As System.Object, e As _
      System.EventArgs) Handles MyBase.Load
        IPCamFrameRates.Add("Max", 0)
        IPCamFrameRates.Add("20", 1)
        IPCamFrameRates.Add("15", 3)
        IPCamFrameRates.Add("10", 6)
        IPCamFrameRates.Add("5", 11)
        cboFrameRate1.DisplayMember = "Key"
        cboFrameRate1.ValueMember = "Value"
        cboFrameRate1.DataSource = New BindingSource(IPCamFrameRates, Nothing)
    End Sub
 
    Private Sub cboFrameRate1_SelectedIndexChanged(sender As System.Object, e _
      As System.EventArgs) Handles cboFrameRate1.SelectedIndexChanged
        If IPCamFrameRates.ContainsKey(cboFrameRate1.Text) Then
            Dim result As Integer = IPCamFrameRates(cboFrameRate1.Text)
            Debug.Print(CStr(result))
        Else
            ' nicht im dictionary
        End If
    End Sub