假设该listbox名为lst则困租宽dim strlst as stringfor i as integer =0 to lst.items.count-1 strlst &= lst.items(i) & vbcrlfnext然汪亮后将strlst写入text文件型耐即可
