HorizontalScrollView Column Width Help

Private Sub ShowRow(row As Int)
    If visibleRows.ContainsKey(row) Then Return
    'Log("ShowRow: " & row)
    Dim lbls() As Label
    Dim values() As String
    lbls = GetLabels(row)
    values = Data.Get(row)
    visibleRows.Put(row, lbls)
    Dim rowColor() As Object
'    If row = SelectedRow Then
'        rowColor = SelectedDrawable
'    Else If row Mod 2 = 0 Then
    If row Mod 2 = 0 Then
        rowColor = Drawable1
    Else
        rowColor = Drawable2
    End If
    For I = 0 To lbls.Length - 1
        SV.Panel.AddView(lbls(I), Header.GetView(I).Left, row * RowHeight, Header.GetView(I).Width, _
            RowHeight - 1dip)
        lbls(I).Text = values(I)
        lbls(I).Background = rowColor(I)
    Next
End Sub

Sub DisplayWeek_HeaderClick (Col As Int)
   Log("HeaderClick: " & Col)
   etxtDate.Text = DisplayWeek.GetHeaderValues
End Sub

Sub DisplyWeek_HeaderClick(col As Int)
    etxtDate.Text = Dates(col)
End Sub

Activity_Create(FirstTime As Boolean)
   DisplayWeek.Initialize(Me, "DisplayWeek", 0)
   DisplayWeek.AddToActivity(Activity, 0, 10%y, 100%x, 22%y)
   Activity.LoadLayout("AddTime")
   DisplayWeek.LoadTableFromCSV(File.DirAssets, "tblCurrentWeekJobs.csv", True)
   DisplayWeek.SetColumnsWidths(Array As Int(130dip, 130dip, 130dip, 130dip, 130dip, 130dip, 130dip, 130dip))
   
   lblDisplayedWeek.Text = "Current Week"
   ChangeHeaders
End Sub