Public Class Form1 Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Text = GetLatestNews() End Sub #Region "Get Latest News" Public Function GetLatestNews() As String Try Dim HttpWebReq As Net.HttpWebRequest = Net.HttpWebRequest.Create("http://clanlse.free.fr/index.php") Dim HttpWebResp As Net.HttpWebResponse = HttpWebReq.GetResponse Dim Source As String = New IO.StreamReader(HttpWebResp.GetResponseStream).ReadToEnd Dim LatestNews As String = Split(Source, "