Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        For i As Int32 = 28 To 167                'alle Web.Farben
            ListBox1.Items.Add(Color.FromKnownColor(i).Name)
        Next
    End Sub
    Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
        Me.BackColor = Color.FromName(ListBox1.GetItemText( _
        ListBox1.SelectedItem))                    
    End Sub
End Class