LHSP‡ sample multilistýøÿÿÊSub Main Dim ValAr(6) As String ValAr(0)="value0" ValAr(1)="value1" ValAr(2)="value2" ValAr(3)="value3" ValAr(4)="value4" ValAr(5)="value5" Dim SampleTitle As String SampleTitle=Format(Now,"h:m:ss") Begin Dialog UserDialog 620,203,SampleTitle,.dlgfunc ' %GRID:10,7,1,1 OKButton 100,119,90,21 MultiListBox 70,21,140,70,ValAr(),.MultiListBox1 End Dialog SampleTitle = "test1" Dim dlg As UserDialog dlg.MultiListBox1 = Array(2) Dialog dlg For i = LBound(dlg.MultiListBox1) To UBound(dlg.MultiListBox1) MsgBox CStr(dlg.MultiListBox1(i)) Next i End Sub Rem See DialogFunc help topic for more information. Private Function dlgfunc(DlgItem$, Action%, SuppValue&) As Boolean Select Case Action% Case 1 ' Dialog box initialization Case 2 ' Value changing or button pressed Case 3 ' TextBox or ComboBox text changed Case 4 ' Focus changed Case 5 ' Idle Case 6 ' Function key End Select End Function