'Deklarationen
Dim WithEvents cboVorlauf As New ComboBox With _
   {.Parent = Me, .Width = 300, _
    .DrawMode = DrawMode.OwnerDrawFixed, _
    .DropDownStyle = ComboBoxStyle.DropDownList}
 
Dim dt As New DataTable 'Die Tabelle
Dim dt_startdate As Date = Today 'Das Bezugsdatum der Tabelle
 
 
'Testdaten und Datenbindung (z.B. im Form_Load_Eventhandler)
dt.Columns.Add("Vorlauftage", GetType(Integer))
For i As Integer = 0 To 6
   dt.Rows.Add(i)
Next i
 
cboVorlauf.DisplayMember = "Vorlauftage"
cboVorlauf.DataSource = dt
 
 
'Der DrawItem-Eventhandler  
Private Sub cboVorlauf_DrawItem(sender As Object, _
   e As System.Windows.Forms.DrawItemEventArgs) Handles cboVorlauf.DrawItem
 
 
   e.DrawBackground()
 
   Using br As New SolidBrush(e.ForeColor)
       Dim l As Point = e.Bounds.Location
       l.Offset(2, 2)
       'Wert + Wochentag im Comboitem ausgeben 
       e.Graphics.DrawString(getComboItemtext(e.Index), e.Font, br, l)
   End Using
End Sub
 
 
Private Function getComboItemtext(ByVal index As Integer) As String
   If index < 0 Then Return String.Empty
 
   'der zu zeichnende Wert (Vorlauf) im aktuellen Combo-Item
   Dim vl As Integer = _
       CInt(dt.Rows(Index).Item(cboVorlauf.DisplayMember))
 
   'der entsprechende Wochentag gemäß dem Start-Datum   
   Dim wd As String = dt_startdate.AddDays(vl).ToString("dddd")
 
   Return vl.ToString & "  (" & wd & ")"
End Function