Hey,

So my question would be, have you declared the Results Sub that is used as the delegate method, this should be declared as follows:

Code:
    ''' <summary>
    ''' Fire an event when each ping completes so that the client can show
    ''' progress
    ''' </summary>
    ''' <param name="pr">Ping Results</param>
    Sub Results(ByVal pr As PingReply)

        Dim e As NetScanCompletedEventArgs = New NetScanCompletedEventArgs()
        e.Reply = pr
        RaiseEvent PingComplete(Me, e)
    End Sub
And have you initialised the pr varaible as such:

Code:
Dim pr As PingReply = newPing.Send(ip)
Gary