For i = 1 To 254
If My.Computer.Network.Ping("192.168.1." & i.ToString) = True Then
TextBox1.AppendText("192.168.1." & i.ToString & " " & "ใช้งานได้จ้า" & vbNewLine)
Else
TextBox1.AppendText("192.168.1." & i.ToString & " " & "ใช้งานไม่ได้จ้า" & vbNewLine)
End If
Next