codice:
  With Grid
    .Width = 4000
    
     'Fai riferimento alla riga 0 e imposti le proprietà delle colonne 
    .Row = 0
    
    .Col = 0
    .Text = "Colonna1"
    .ColWidth(0) = 1000
    
    .Col = 1
    .Text = "Colonna2"
    .ColWidth(1) = 1000
    
    .Col = 2
    .Text = "Colonna3"
    .ColWidth(2) = 2000
   end With

Ciao ciao dolce!