Visual Basic - NUMERACION DE ING. EN LISTVIEW

Me gustaria que al ingresar datos al listview atraves de cajas de texto(txt_cod,txt_pro,txt_sec,txt_mon,txt_uni,txt_val y txt_st) esos ingresos se vayan enumerando de acuerdo
a la cantidad de registros ingresados, las columnas los tengo encabezados de la siguiente manera
columna 1=”CODIGO”
columna 2=”DESCRIPCION”
columna 3=”CANTIDAD”
columna 4=”UNIDAD_CAJA”
columna 5=”VALOR”
columna 6=”VALOR_TOTAL”

quisiera que las columnas queden asi:
columna 1=”Nro”
columna 2=”CODIGO”
columna 3=”DESCRIPCION”
columna 4=”CANTIDAD”
columna 5=”UNIDAD_CAJA”
columna 6=”VALOR”
columna 7=”VALOR_TOTAL”
en la columna “Nro” los registros (filas)se enumeren de acuerdo a la cantidad ingresada y a la vez esa columna se pinte totalmente de color gris(el encabezado y las filas ).
Aquí les mando el codigo que estoy trabajando hasta ahora espero que lo adapten a lo que yo quiero por favor
Atte
Catita Zarate “la peruana sabrosa” gracias…..
NOTA: reg es el listview
Private Sub cmd_agr_Click()
Dim Nuevo As Object
Dim IndiceIcono As Integer
If Trim(txt_cod) = "" Or Trim(txt_pro) = "" Or Trim(txt_sec) = "" Or Trim(txt_mon) = "" _
Or Trim(txt_uni) = "" Or Trim(txt_val) = "" Or Trim(txt_st) = "" Then
MsgBox "PARA INGRESAR DIGITE INFORMACION"
txt_st.SetFocus
Else
'Elegir un icono al azar para el elemento
IndiceIcono = NroAzar(1, img2.ListImages.Count)

'Agregar el nuevo elemento, y asignarle el icono elegido
Set Nuevo = reg.ListItems.Add(, , txt_cod, IndiceIcono, IndiceIcono)
Nuevo.SubItems(1) = txt_pro
Nuevo.SubItems(2) = txt_st
Nuevo.SubItems(3) = txt_uni
Nuevo.SubItems(4) = txt_val
Nuevo.SubItems(5) = txt_mon
limpiar
txt_cod.SetFocus
cmd_eli.Enabled = True
End If
End Sub