[VB] Chat Log FTP cho hosting

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://mydoamin.xxx/chat.txt")

    End Sub
    Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs)
        ProgressBar1.Maximum = e.MaximumProgress
        If e.CurrentProgress > ProgressBar1.Maximum Then
            ProgressBar1.Value = ProgressBar1.Maximum
        ElseIf e.CurrentProgress < ProgressBar1.Minimum Then
            ProgressBar1.Value = ProgressBar1.Minimum
        Else
            ProgressBar1.Value = e.CurrentProgress
        End If
    End Sub

    Private Sub ReloadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReloadToolStripMenuItem.Click
        WebBrowser1.Navigate("http://mydoamin.xxx/chat.txt")
    End Sub

    Private Sub HomePageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HomePageToolStripMenuItem.Click
        WebBrowser1.Navigate("http://mydoamin.xxx/chat.txt")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

    End Sub
End Class