Private Sub cmdPlain_Click()
ListBox1.ListStyle = fmListStylePlain
End Sub
Private Sub cmdOption_Click()
ListBox1.ListStyle = fmListStyleOption
ListBox1.MultiSelect = fmMultiSelectSingle
End Sub
Private Sub cmdCheck_Click()
ListBox1.ListStyle = fmListStyleOption
ListBox1.MultiSelect = fmMultiSelectMulti
End Sub