box2

Private Sub CommandButton1_Click()
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = 1
ListBox1.AddItem "primo"
ListBox1.AddItem "secondo"
ListBox1.AddItem "terzo"
ListBox1.AddItem "quarto"
ComboBox1.ColumnHeads = True
ComboBox1.ColumnWidths = 1
ComboBox1.AddItem "dato inserito"
ComboBox1.AddItem "dato inserito"
ComboBox1.AddItem "dato inserito"
ComboBox1.AddItem "dato inserito"
ComboBox1.AddItem "dato inserito"

End Sub

Private Sub CommandButton2_Click()
ListBox1.ColumnHeads = False
ListBox1.ColumnWidths = 0

ListBox1.AddItem "quarto"
ListBox1.AddItem "primo"
ListBox1.AddItem "secondo"
ListBox1.AddItem "terzo"

ListBox1.AddItem "terzo"
ListBox1.AddItem "quarto"
ListBox1.AddItem "terzo"
ListBox1.AddItem "quarto"
ComboBox1.ColumnHeads = False
ComboBox1.ColumnWidths = 0
ComboBox1.AddItem "dato inserito"
ComboBox1.AddItem "dato inserito"
ComboBox1.AddItem "dato inserito"
ComboBox1.AddItem "dato inserito"
ComboBox1.AddItem "dato inserito"

End Sub

Private Sub CommandButton3_Click()
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = 100

ListBox1.AddItem "quarto"
ListBox1.AddItem "primo"
ListBox1.AddItem "secondo"
ListBox1.AddItem "terzo"
ListBox1.AddItem "quarto"
ComboBox1.ColumnHeads = True
ComboBox1.ColumnWidths = 100
ComboBox1.AddItem "dato inserito"
ComboBox1.AddItem "dato inserito"
ComboBox1.AddItem "dato inserito"
ComboBox1.AddItem "dato inserito"
ComboBox1.AddItem "dato inserito"
End Sub

Private Sub CommandButton4_Click()
ListBox1.ColumnCount = 3
ComboBox1.ColumnCount = 4
End Sub

Private Sub CommandButton5_Click()
ListBox1.BoundColumn = 1
End Sub

Private Sub UserForm_Click()

End Sub

ritorna