If My.Computer.Network.Ping("192.168.10.38", 500) Then
PBEC38.Image = PBECBloqueada.Image()
Else
PBEC38.Image = PBECApagada.Image()
End If