راست چین کردن ستون دوم از لیست باکس به کمک یک کمبوباکس

[قله بلند]

سلام دوستان
من در ابتدا جستجو کردم ولی مشکلم حل نشد.

من با این کد می تونم کمبوباکس (حاوی ستون دوم از لیست باکس) و لیست باکس رو (حاوی دو ستون) پر کنم.
و کمبوباکس رو هم راست چین کنم.

حالا چه طوری محتویات درون کمبوباکس رو بخونم (در حالیکه راست چین هستند) و به جای ستون دوم لیست باکس قرار بدم تا ستون دوم لیست باکس به این طریق راست چین بشه؟




Do Until RS.EOF
Me.Combo132.AddItem RS.Fields("T_EW_1").Value
Me.Combo132.TextAlign = 3
strItem = RS.Fields("Main_EW").Value & ";" _
& RS.Fields("T_EW_1").Value
Me.List122.AddItem strItem ' Row Source Type must be Value List
RS.MoveNext
Loop

[قله بلند]

سلام
این بار اومدم به جای یک لیست باکس دو ستونه، از دو لیست باکس تک ستونه استفاده کردم. لیست باکس دوم رو به کمبوباکس تبدیل کردم و راست چینش کردم و دوباره به لیست باکس تبدیلش کردم ولی فایده ای نداره چون متن های فارسی همچنان از چپ به راست چیده می شوند.

دیگه نمی دونم چه کار کنم.:ناراحت: