Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        bezug.Items.Add("100")
        bezug.Items.Add("-3")
        bezug.Items.Add("-6")
        bezug.SelectedIndex = 0
        verbrauch.Text = "-5"
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        ' < Kleiner als
        ' > Größer als
 
        If bezug.SelectedItem >= 0 Then
 
            Ergebnis.ForeColor = Color.Red
            Ergebnis.Text = "aus"
 
        Else
            If bezug.SelectedItem <= verbrauch.Text Then
                Ergebnis.ForeColor = Color.Red
                Ergebnis.Text = "aus"
            Else
                Ergebnis.ForeColor = Color.Green
                Ergebnis.Text = "an"
            End If
        End If
 
    End Sub
 
End Class

If bezug.SelectedItem >=0 OrElse bezug.SelectedItem <= verbrauch.Text Then
  ...
Else
  ...
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

ListBox1.Items.Insert(0, Now.ToString & "      Schleife - " & Ergebnis.Text & _
  bezug.SelectedItem & " zu " & verbrauch.Text)

  'Deklaration der Listbox
  Dim WithEvents lbo As New ListBox With {.Parent = Me, .Width = 300, 
                                          .DrawMode = DrawMode.OwnerDrawFixed}
 
 'Einige Items eintragen
 lbo.Items.Add("Item eins")
 lbo.Items.Add("Item zwei")
 lbo.Items.Add("Item drei")
 
 
'Ereignis zum Zeichnen der Items
 
Private Sub lbo_DrawItem(sender As Object, e As DrawItemEventArgs) Handles _
  lbo.DrawItem
 
        e.DrawBackground()
 
        Dim txt As String = lbo.Items(e.Index).ToString
        Dim parts() As String = txt.Split(" ")
 
        Using redbrush As New SolidBrush(Color.Red),
              greenbrush As New SolidBrush(Color.Green)
 
            Dim l As Integer = 
                CInt(e.Graphics.MeasureString(parts(0) & "  ", lbo.Font).Width)
 
            e.Graphics.DrawString(parts(0) & " ", lbo.Font, greenbrush, _
              e.Bounds.Location)
            e.Graphics.DrawString(parts(1), lbo.Font, redbrush, 
                                  e.Bounds.Location.X + l, e.Bounds.Location.Y)
        End Using
End Sub