Como colocar por script Checkbox ou OptionButton dentro do ListBox

Não estou conseguindo colocar OptionButton ou CheckBox dentro da ListBox pra fazer uma selecão de escolha dentro dela.

Sub ListBox_OnStartRunning()
	Const fmListStyleOption = 1

	Const fmMultiSelectSingle = 0
	Const fmMultiSelectMulti = 1
	Const fmMultiSelectExtended = 2
	
	Me.Clear()
	
	' Exibe botoes de opcao ou caixas de selecao.
	Me.ListStyle = fmListStyleOption
	
	' Define multiplas selecoes.
	Me.MultiSelect = fmMultiSelectMulti
	
	' Add options...
	AddItem "Option1"
	AddItem "Option2"
End Sub
1 Like

muito obrigado, consegui fazer