mi rispondo con questo codice
For i = 0 To num.Max
If num[i] = "3389/tcp open ms-wbt-server" Then
Shell "nbtscan -e " & ss[i] To RepScanNTB
baobab = Scan(RepScanNTB, "* *")
For h = 0 To baobab.Count - 1
If Even(h) Then
GridView1[y, x].Text = baobab[h] ' y x
Else
Inc x
GridView1[y, x].Text = baobab[h] ' y x
Inc y
Dec x
Endif
Print baobab[h]
Next
Endif
Next
per l inserimento dei gridview che si trova anche a pagina 173 del manuale beginner guide gambas , ora però ho sempre una domanda ma se io volessi usare una cosa tipo questa allego foto che cosa dovrei usare??? al dilà dei colori intendo