[CODE]
Imports System.Runtime.InteropServices


Public Class Form1
    Public Sub New()
        InitializeComponent()
    End Sub
    'il timer chiama questa sub
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        'ottengo attraverso Wifi.GetInfo() una lista di interfacce wifi
        Dim WiFiInfo As List(Of WiFiInfo) = Wifi.GetInfo()
        If WiFiInfo.Count > 0 Then
            'imposto il segnale nella DynamicPictureBox
            Me.DynamicPictureBox1.Signal = WiFiInfo(0).Connection.wlanAssociationAttributes.wlanSignalQuality
        End If
    End Sub
End Class
[/CODE]