From 77a319a2956576e5fc9a0aa5d1bbc9740e7c0f62 Mon Sep 17 00:00:00 2001 From: Vladimir Glazounov Date: Wed, 23 Mar 2005 22:28:07 +0000 Subject: INTEGRATION: CWS extras18 (1.12.256); FILE MERGED 2005/03/17 16:32:04 va 1.12.256.1: #i40799# A minor bugfix. --- wizards/source/tools/Listbox.xba | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'wizards/source/tools') diff --git a/wizards/source/tools/Listbox.xba b/wizards/source/tools/Listbox.xba index 2a023c17a..01e62e7d6 100644 --- a/wizards/source/tools/Listbox.xba +++ b/wizards/source/tools/Listbox.xba @@ -297,7 +297,7 @@ End Sub Function GetSelectedListboxItems(oListbox as Object) -Dim SelList() as String +Dim SelList(Ubound(oListBox.SelectedItems())) as String Dim i as Integer Dim CurIndex as Integer For i = 0 To Ubound(oListbox.SelectedItems()) @@ -349,4 +349,5 @@ Dim i as Integer End If Next i GetItemPos() = -1 -End Function \ No newline at end of file +End Function + \ No newline at end of file -- cgit v1.2.3