If My.Computer.Network.IsAvailable = True Then
'ออนไลน์(เชื่อมต่อเน็ต)
With PictureBox1
.SizeMode = PictureBoxSizeMode.StretchImage
.Load("http://sop.bl.ee/pic1.jpg")
End With
Else
'ออฟไลน์(ไม่ได้เชื่อมต่อเน็ต)
PictureBox1.Image = My.Resources.pic1
End If