Private Sub Menu_Encender_EC35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_Encender_EC35.Click
        Dim Comando_Encender_EC35 As String
        Dim Respuesta As String
        Dim IP_EC35 As String
        IP_EC35 = "192.168.10.29"
        Comando_Encender_EC35 = "wolcmd b0-22-7a-2d-89-29 192.168.10.29 255.255.255.0 1"
        Respuesta = MsgBox("Deseas Encender el Equipo?", vbYesNo, "Si")
        If Respuesta = vbYes Then
            Shell("cmd.exe /C" & Comando_Encender_EC35)
            Verificar_Encendido_EC35(IP_EC35)
        Else
            Return
        End If
        Verificar_Estado_de_Red_EC35(IP_EC35)
    End Sub
    Sub Verificar_Encendido_EC35(ByVal IP_EC35 As String)
        Dim Ping As Boolean 'declaramos la variable Ping
        Dim Tiempo_Verificar_Encendido_EC35 As Integer = 500

        ' verifica que hay conexión a internet  
        If My.Computer.Network.IsAvailable = False Then
            MsgBox("No hay conexión a la red", MsgBoxStyle.Critical)
            Exit Sub
        End If
        On Error Resume Next

        'guardamos en la variable la direccion del ping  
        Ping = (My.Computer.Network.Ping(IP_EC35))
        'damos 3 segundos de espera
        'Thread.Sleep(3000)
        System.Threading.Thread.Sleep(Tiempo_Verificar_Encendido_EC35)
        'Acá mandamos los mensajes para las 2 posibilidades  
        If Ping = False Then
            'si no se pudo acceder ,avisamos  
            'MsgBox("La IP no está disponible", MsgBoxStyle.Critical, "Error")
            PBEC35.Image = PBECApagada.Image()
        Else
            'MsgBox("La IP está disponible !!", MsgBoxStyle.Information, "Aviso")
            PBEC35.Image = PBECBloqueada.Image()
        End If
        PBEC35.Image = PBECEncendiendo.Image()
    End Sub
    Sub Verificar_Estado_de_Red_EC35(ByVal IP As String)
        Dim Ping As Boolean 'declaramos la variable Ping
        Dim Tiempo_Verificar_Estado_de_Red_EC35 As Integer = 500
        ' verifica que hay conexión a internet  
        If My.Computer.Network.IsAvailable = False Then
            MsgBox("No hay conexión a la red", MsgBoxStyle.Critical)
            Exit Sub
        End If
        On Error Resume Next
        'guardamos en la variable la direccion del ping  
        Ping = (My.Computer.Network.Ping(IP))
        'damos 60 segundos de espera
        'Thread.Sleep(3000)
        System.Threading.Thread.Sleep(Tiempo_Verificar_Estado_de_Red_EC35)
        'Acá mandamos los mensajes para las 2 posibilidades  
        If Ping = False Then
            'si no se pudo acceder ,avisamos  
            'MsgBox("La IP no está disponible", MsgBoxStyle.Critical, "Error")
            PBEC35.Image = PBECApagada.Image()
        Else
            'MsgBox("La IP está disponible !!", MsgBoxStyle.Information, "Aviso")
            PBEC35.Image = PBECBloqueada.Image()
        End If
        PBEC35.Image = PBECBloqueada.Image()
    End Sub