Ping Program not working

[scrypt3r]

Ive made a ping program to tell me when my friend is online

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        'The code for person1
        If My.Computer.Network.Ping("***ipaddress***", 1000) Then
            Label2.Text = "Online"
        Else
            Label2.Text = "Offline"
        End If

        'the code for person2
        If My.Computer.Network.Ping("***ipaddress***", 1000) Then
            Label5.Text = "Online"
        Else
            Label5.Text = "Offline"
        End If
              Label7.Visible = False
    End Sub

but on my end when they are online it says there not and on there end, it says there not