Option Explicit On 
Option Strict On
Imports System.Management
 
Public Class Wlan
 
#Region " RssiFire"
    Public Class RssiFire
        Inherits System.Timers.Timer
 
        Public Sub New(ByVal interval As Integer, Optional ByVal start As _
          Boolean = False)
            MyBase.Interval = interval
            MyBase.Enabled = True
            If start Then MyBase.Start()
            AddHandler MyBase.Elapsed, AddressOf Fire
        End Sub
 
        Public Event RssiSignal(ByVal Signalstrength As Integer)
 
        Private Sub fire(ByVal sender As Object, ByVal e As _
          Timers.ElapsedEventArgs)
            Dim searcher As New ManagementObjectSearcher("root\WMI", "select" & _
            "Ndis80211ReceivedSignalStrength from" & _
            "MSNdis_80211_ReceivedSignalStrength where active=true")
            For Each mo As ManagementObject In searcher.Get
                RaiseEvent RssiSignal(Int32.Parse(mo( _
                  "Ndis80211ReceivedSignalStrength").ToString))
            Next
            searcher.Dispose()
        End Sub
    End Class
#End Region
 
End Class

    Dim WithEvents Rssi As New Wlan.RssiFire(100, True)
    Private Sub Rssi_RssiSignal(ByVal Signalstrength As Integer) Handles _
      Rssi.RssiSignal
        MsgBox(Signalstrength)
    End Sub