Private Enum IPCamFrameRates
        <Description("Max")> Max = 0
        <Description("20")> f20 = 1
        <Description("15")> f15 = 3
        <Description("10")> f10 = 6
        <Description("5 frames")> f5 = 11
        <Description("4 frames")> f4 = 12
        <Description("3 frames")> f3 = 13
        <Description("2 frames")> f2 = 14
        <Description("1 frame")> f1 = 15
        <Description("1 fps/2s")> fps1_2s = 17
        <Description("1 fps/3s")> fps1_3s = 19
        <Description("1 fps/4s")> fps1_4s = 21
        <Description("1 fps/5s")> fps1_5s = 23
    End Enum
 
    Private Sub cboFrameRate1_SelectedIndexChanged(sender As System.Object, e _
      As System.EventArgs) Handles cboFrameRate1.SelectedIndexChanged
????? 
    End Sub
 
    Public Shared Function GetEnumDescription(ByVal EnumConstant As [Enum]) As _
      String
        Dim fi As Reflection.FieldInfo = EnumConstant.GetType().GetField( _
        EnumConstant.ToString())
        Dim attr() As System.ComponentModel.DescriptionAttribute = DirectCast( _
        fi.GetCustomAttributes(GetType( _
        System.ComponentModel.DescriptionAttribute), False), _
        System.ComponentModel.DescriptionAttribute())
        If attr.Length > 0 Then
            Return attr(0).Description
        Else
            Return EnumConstant.ToString()
        End If
    End Function
 
    Public Shared Function GetEnumDescriptions(ByVal EnumConstant As Type) As _
      String()
        ' SYNTAX : Me.cbFileActionType.Items.AddRange(GetEnumDescriptions( 
        ' GetType(eFileListActionType)))
        ' http://blog.dahead.de/howto-vb-net-enums-mit-beschreibungen-versehen
 
        Dim res(-1) As String
        For Each ec As [Enum] In [Enum].GetValues(EnumConstant)
            ReDim Preserve res(UBound(res) + 1)
            res(UBound(res)) = GetEnumDescription(ec)
        Next
        Return res
    End Function