التحكم بعرض اعمدة الليست بوكس في اليوزرفورم

Private Sub UserForm_Initialize()
'اضافة العناصر الي الليست بوكس
With ListBox1
' عدد الأعمدة
.ColumnCount = 3
' عرض كل عمود 50
.ColumnWidths = "120;50;50"
' اضافة صف العنوان
.ColumnHeads = True
' مصدر البيانات
.RowSource = "=Sheet1!A2:B10"
' لاحظ هنا استخدمت خاصيت مالتي سليكت
.MultiSelect = fmMultiSelectMulti
End With
TextBox1 = ""
End Sub