Dim i As Integer
Private Sub Timer1_Timer()
Set nicSet = GetObject( _
  "winmgmts:{impersonationLevel=impersonate}!root/wmi").InstancesOf( _
  "MSNdis_80211_BSSIList")
 
For Each nic In nicSet
    obset = nic.Ndis80211BSSIList
Next
 
Text = ""
 
For Each ob In obset
    ssidarr = ob.Ndis80211SsId
    RSSI = ob.Ndis80211Rssi
    SSID = ""
 
    For t = 0 To 31
        If ssidarr(t) > 13 Then
            SSID = SSID + Chr(ssidarr(t))
        End If
    Next
 
    Text = Text & SSID & " -" & RSSI & " dBm"
Next
 
i = i + 1
If i >= 10 Then
    List1.Clear
    i = 0
End If
 
List1.AddItem ("Visible AP's:" & Text)
End Sub