SIm, e muito facil.Basta voce deixar a coluna do ID invisivel.
Eu faco assim :
Private Sub Monta_Cabecalho_NavioTransb()
LvwNavioTransb.ColumnHeaders.Add , , "Vessel", 3100
LvwNavioTransb.ColumnHeaders.Add , , "Voyage", 1400
LvwNavioTransb.ColumnHeaders.Add , , "Date", 1610
LvwNavioTransb.ColumnHeaders.Add , , "Loading Port", 0
LvwNavioTransb.ColumnHeaders.Add , , "Discharging Port", 0
LvwNavioTransb.ColumnHeaders.Add , , "ID NAVIO", 0
LvwNavioTransb.View = lvwReport
LvwNavioTransb.GridLines = True
LvwNavioTransb.FullRowSelect = True
End Sub
Nessas 3 linhas eu defini o tamanho da coluna como zero,logo elas nao serao visualizadas.
LvwNavioTransb.ColumnHeaders.Add , , "Loading Port", 0
LvwNavioTransb.ColumnHeaders.Add , , "Discharging Port", 0
LvwNavioTransb.ColumnHeaders.Add , , "ID NAVIO", 0
Um Abraco