Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Me.Label1.Text = "hallo"
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button2.Click
        Me.Label1.Text = ""
    End Sub
 
    Private Sub Label1_TextChanged(sender As Object, e As System.EventArgs) _
      Handles Label1.TextChanged
        If Me.Label1.Text = "" Then
            Me.Label1.BackColor = Color.Green
        Else
            Me.Label1.BackColor = Color.Red
        End If
 
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        Me.Label1.AutoSize = False
    End Sub
End Class

EALA FREYA FRESENA