REM  *****  BASIC  *****

Dim Dialog_1 As Object

Sub Dialog_Show
    DialogLibraries.LoadLibrary("Standard")
    Dialog_1 = CreateUnoDialog( DialogLibraries.Standard.test_dialog )
    Dialog_1.Execute()
End Sub


Sub Add_Data_Dialog
	Dim iCount as integer

	ot_1 = Dialog_1.GetControl("ListBox1")
	iCount = ot_1.ItemCount
	ot_1.additem("Счетчик: " & iCount,0)
End Sub