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