DIM hFile AS File
DIM sLine AS String
DIM i AS Integer
ListBox1.Clear
SHELL "iwlist scann > /home/ara.txt"

hFile = OPEN "/home/ara.txt" FOR INPUT

  WHILE NOT Eof(hFile)
    LINE INPUT #hFile, sLine
    sLine = Trim(sLine)
      IF "ESSID" = Mid$(sLine, 1, 5) THEN 
         FOR i = 1 TO Len(sLine)
            IF ":" = Mid$(sLine, i, 1) THEN 
              sLine = Mid$(sLine, i + 2, Len(sLine) - 2 - i)
              ListBox1.Add(sLine)
            ENDIF
         NEXT
      ENDIF  
    
  WEND