Non ho visto tutto il codice ma mi sembra che nella sub

display2

tu possa controllare (con apposite if) il risultato della

getascip(ip_header.ip_srcaddr)

prima di eseguire la

Set lvitem = Form1.listview1.object.ListItems.Add(, , getascip(ip_header.ip_srcaddr))

in modo da selezionare gli IP "sorgenti" e in modo analogo, per gli IP "destinazione" ...