Code:
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
       postdata("http://www.facebook.com/ajax/updatestatus.php?__a=1", _
       "action=PROFILE_UPDATE&profile_id=1563964051&status=z" & STATUS & " & _ 
        target_id=560692823&app_id=&&  composer_id=c4cf9ecf8826c75127813708&hey_kid_im_a_composer=true& _
        display_context=profile&post_form_id=ab9062ba2d05c3f1c7877384e4cf5a79& _
        fb_dtsg=lWSzz&lsd&_log_display_context=profile&ajax_log=1&post_form_id_source=AsyncRequest", _
        New System.Net.CookieContainer)
    End Sub
    
Public Function postdata(ByRef url As String, ByVal post As String, ByVal cookie As System.Net.CookieContainer)        Dim request As HttpWebRequest
        Dim response As HttpWebResponse
        request = CType(WebRequest.Create(url), HttpWebRequest)
        request.ContentType = "application/x-www-form-urlencoded"
        MsgBox(post)
        request.ContentLength = post.Length
        request.Method = "POST"
        request.AllowAutoRedirect = False
        Dim requeststream As Stream = request.GetRequestStream
        Dim postbytes As Byte() = Encoding.ASCII.GetBytes(post)
        requeststream.Write(postbytes, 0, postbytes.Length)
        requeststream.Close()
        response = CType(request.GetResponse(), HttpWebResponse)
        Return New StreamReader(response.GetResponseStream()).ReadToEnd()
    End Function

Code:
Dim url As String = "https://login.facebook.com/login.php?login_attempt=1"
        Dim postdata As String = "charset_test=%E2%82%AC%2C%C2%B4%2C%E2%82%AC%2C%C2%B4%2C%E6%B0%B4%2C%D0%94%2C%D0%84&lsd=om3WM&locale=sr_RS&email=USER%40sbb.co.yu&pass=PASS&persistent=1&default_persistent=1&charset_test=%E2%82%AC%2C%C2%B4%2C%E2%82%AC%2C%C2%B4%2C%E6%B0%B4%2C%D0%94%2C%D0%84&lsd=om3WM"
        Dim tempcookies As New CookieContainer
        Dim encoding As New UTF8Encoding
        Dim bytes As Byte() = encoding.GetBytes(postdata)

        Dim postreq As HttpWebRequest = DirectCast(WebRequest.Create("https://login.facebook.com/login.php?login_attempt=1"), HttpWebRequest)
        postreq.Method = "POST"
        postreq.KeepAlive = True
        postreq.CookieContainer = tempcookies
        postreq.ContentType = "application/x-www-form-urlencoded"
        postreq.Referer = "https://login.facebook.com/login.php?login_attempt=1"
        postreq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3"
        postreq.ContentLength = bytes.Length

        Dim postreqstream As Stream = postreq.GetRequestStream()
        postreqstream.write(bytes, 0, bytes.Length)
        postreqstream.Close()
        Dim postresponse As HttpWebResponse

        postresponse = DirectCast(postreq.GetResponse(), HttpWebResponse)
        tempcookies.Add(postresponse.Cookies)
        logincookie = tempcookies

Code:
 Dim postmessage As String = TextBox4.Text
        Dim url As String = "http://www.facebook.com/ajax/updatestatus.php?__a=1"
        Dim post As String = "action=PROFILE_UPDATE&profile_id=1563964051&status=z" & postmessage & "&target_id=560692823&app_id=&&  composer_id=c4cf9ecf8826c75127813708&hey_kid_im_a_composer=true& display_context=profile&post_form_id=ab9062ba2d05c3f1c7877384e4cf5a79&fb_dtsg=lWSzz&lsd&_log_display_context=profile&ajax_log=1&post_form_id_source=AsyncRequest"

        Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
        request.ContentType = "application/x-www-form-urlencoded"
        request.CookieContainer = logincookie
        request.ContentLength = post.Length
        request.Method = "POST"
        request.AllowAutoRedirect = False

        Dim requeststream As Stream = request.GetRequestStream
        Dim postbytes As Byte() = Encoding.ASCII.GetBytes(post)
        requeststream.Write(postbytes, 0, postbytes.Length)
        requeststream.Close()

Code:
   Dim postmessage As String = TextBox4.Text
        Dim url As String = "http://www.facebook.com/ajax/updatestatus.php?__a=1"
        Dim post As String = "action=PROFILE_UPDATE&profile_id=1563964051&status=z" & postmessage & "&target_id=560692823&app_id=&&  composer_id=c4cf9ecf8826c75127813708&hey_kid_im_a_composer=true& display_context=profile&post_form_id=ab9062ba2d05c3f1c7877384e4cf5a79&fb_dtsg=lWSzz&lsd&_log_display_context=profile&ajax_log=1&post_form_id_source=AsyncRequest"
        Dim encoding As New UTF8Encoding
        Dim postbytes As Byte() = encoding.GetBytes(post)
        Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
        request.ContentType = "application/x-www-form-urlencoded"
        request.CookieContainer = logincookie
        request.ContentLength = postbytes.Length
        request.Method = "POST"
        request.AllowAutoRedirect = False

        Dim requeststream As Stream = request.GetRequestStream

        requeststream.Write(postbytes, 0, postbytes.Length)
        requeststream.Close()

        Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
        Dim reader As New StreamReader(response.GetResponseStream())
        Dim theusercp As String = reader.ReadToEnd

        RichTextBox3.Text = theusercp
        TextBox3.Text = "560692823"

Code:
 Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
   Dim thepage As String = postreqreader.ReadToEnd
        RichTextBox1.Text = thepage