[vb.net] impostare selectedvalue a combobox

[Kahm]

come da titolo
è una stupidaggine...boh forse sono stanco
ma oggi non funziona proprio

in pratica valorizzo una combo con i valori("FATTURA","D.D.T" ,"PREVENTIVO")
e voglio settare il value a PREVENTIVO, cioè 1
purtroppo non mi setta mai il valore

 
 Public Enum TipoDoc
        Preventivo = 1
        Fattura = 2
        DDT = 3
  End Enum



 Private Sub CaricaTipoDOC()     
   CBB.Items.Clear()
        CBB.DataSource = GetListaTipoDOC()
        CBB.DisplayMember = "DESC"
        CBB.ValueMember = "ID"


        Me.CBB.SelectedValue = TipoDoc.Preventivo
    End Sub


    Function GetListaTipoDOC() As List(Of MyListBoxItem)
        Dim mailItems = New List(Of MyListBoxItem)
        mailItems.Add(New MyListBoxItem(TipoDoc.Preventivo,"Preventivo"))
        mailItems.Add(New MyListBoxItem(TipoDoc.Fattura, "Fattura"))
        mailItems.Add(New MyListBoxItem(TipoDoc.DDT, "DdT"))


        Return mailItems
    End Function

e la classe myListBoxItem

Public Class MyListBoxItem
    Dim mVal As Integer
    Dim mDesc As String
    Public Sub New(val As Integer, desc As String)
        mVal = val
        mDesc = desc
    End Sub
    Public Sub New()
    End Sub
    Public Property ID() As String
        Get
            Return mVal
        End Get
        Set(ByVal Value As String)
            mVal = Value
        End Set
    End Property
    Public Property DESC() As String
        Get
            Return mDesc
        End Get
        Set(ByVal Value As String)
            mDesc = Value
        End Set
    End Property
End Class

cosa sbaglio?