Coba pake perintah ini ya.....
dim zColor as string
zcolor=""
for i = 1 to lstcolor.listitem.count
if zcolor = "" then
zcolor = lstcolor.listitems(i).text
else
zcolor = zcolor + "," + lstcolor.listitems(i).text
end if
next i
mudah2an bisa membantu :)
-Petry-
------------------------ Yahoo! Groups Sponsor --------------------~-->
Most low income homes are not online. Make a difference this holiday season!
http://us.click.yahoo.com/5UeCyC/BWHMAA/TtwFAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
