[silverlight]

مش متأكد هل الكلاس الخاص ب الفيسبوك ها يعمل بدقة أم لا 
لكن الفكرة المفروض تكون هكذا

PHP كود :

Public Class Form1

    Private index As Integer = 0

    Private Function GetUploadDisctionary() As Dictionary(Of String, Object)
        Dim upload As New Dictionary(Of String, Object)
        upload.Add("message", TextBox1.Text)
        upload.Add("link", TextBox2.Text)
        upload.Add("name", TextBox3.Text)
        upload.Add("description", TextBox4.Text)
        upload.Add("picture", TextBox5.Text)

        Return upload
    End Function

    Private Function GetcheckedItems() As List(Of String)
        Dim resut As List(Of String) = New List(Of String)()
        Dim i As Integer = 0
        While i < CheckedListBox1.CheckedItems.Count
            Dim item As Object = CheckedListBox1.CheckedItems(i)
            resut.Add(item.ToString)
            i += 1
        End While
        Return resut
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Interval = 1000
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Dim s As String = GetcheckedItems(Me.index Mod Me.GetcheckedItems.Count)

        Dim xBack = xFacebook.Post(s + "/feed", GetUploadDisctionary())
        Me.index += 1
        If Me.index >= GetcheckedItems.Count Then
            Timer1.Stop()
        End If
    End Sub
End Class