Private Sub filllistboxwithcolors()
Me.ListBox1.DrawMode = DrawMode.OwnerDrawFixed
Me.ListBox1.ItemHeight = 24
'避免闪烁
Me.ListBox1.BeginUpdate()
ListBox1.Items.Clear()
Private Sub filllistboxwithcolors()
Me.ListBox1.DrawMode = DrawMode.OwnerDrawFixed
Me.ListBox1.ItemHeight = 24
'避免闪烁
Me.ListBox1.BeginUpdate()
ListBox1.Items.Clear()