Codenstuff.com

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start() 'This starts the timer so that the picture can change.
        Me.AutoSize = True 'This makes it so that form1(Me) changes its size to suit the contents
        If My.Computer.Network.IsAvailable = False Then 'this checks to see if the network is available, if it is disabled then this will show
            MsgBox("Please check your network connection or contact your adminsistrator. If used in a school then your network may be down or disabled. in this case please contact your technicians or tell your teacher.", MsgBoxStyle.OkOnly, "Network: OFFLINE") 'This creates a one-time instance (messagebox or msgbox) then displays text as a string etc.
        End If 'this ends the if function above.
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        PictureBox1.ImageLocation = "http://www.sat24.com/image.ashx?country=eu&type=slide&index=1&sat" 'this gets the picture from a site, in our case sat24.com. If you want feel free to change it!
        If My.Computer.Network.IsAvailable = True Then 'this is same as the other one we did but instead it checks to see if there IS a connection to establish
            Me.Text = "real-time weather updater 15 min updater - " & Date.UtcNow & " Weather is online " & "data supplied by: www.sat24.com" 'if it is a true network then this will show on the top of the form
        Else 'if the above is not true then it will try this vv
            Me.Text = "real-time weather updater 15 min updater - " & Date.UtcNow & " Warning: Weather offline!" 'changes the title to this
        End If
    End Sub