ListBox List column freeze.

[asyamonique]

Private Sub ComboBox1_Change()
Dim a, i As Long, ii As Long, b(), n As Long
With ComboBox1
If .Text = "" Then Exit Sub
If WorksheetFunction.CountIf(Worksheets("info").Range("a:a"), .Text) = 0 Then
MsgBox "No Entry !"
Exit Sub
End If
a = Worksheets("info").Range("a1").Resize(Worksheets("info").Range("a" & Rows.Count).End(xlUp).Row, 25).Value
For i = 1 To UBound(a, 1)
If a(i, 1) = .Text Then
n = n + 1: ReDim Preserve b(1 To 25, 1 To n)
For ii = 1 To UBound(a, 2)
b(ii, n) = a(i, ii)
Next
End If
Next
End With
With ListBox1
.ColumnCount = 25
.ColumnWidths = "0;50;50;50;50,50;50;50;50;50;50;50;50,50;50;50;50;50;50;50;50;50,50;50;50"
.Column = b
End With
End Sub

Good Day,
The above code filter the datas and populate them into the listbox on my userform.
How can i freeze the first column while scrolling the litbox right & left?
Also is there any way to change the font color for the columns?
Many Thanks