Dim Gateway As System.Net.NetworkInformation.GatewayIPAddressInformation
        Shell("PING" & Gateway)