Che corrisponde a quale colonna? Considerando che la prima è = 0?
Altrimenti puoi fare:

codice:
    Y% = 0
    For Each Mycol In DataGrid1.Columns
        If LCase(Mycol.Caption) = "data" Then
            Mycol.Visible = False
        End If
    'prima colonna
        If Y = 0 Then
            Mycol.Width = 1900
        'ElseIf Y = 1 Then
        '    Mycol.Visible = False
        Else 'colonne successive
            Mycol.Width = 6000
        End If
        Y% = Y% + 1
    Next
Ciao