[أبو نوره]

مرحبا اخى

PHP كود :

Private Sub BtnPost_Click(sender As Object, e As RoutedEventArgs) Handles BtnPost.Click
    ShortBook(TxtLink.Text, TxtMessage.Text)
End Sub

Public Sub ShortBook(ByVal Title As String, ByVal Status As String)
    Try
        Dim txt As Integer = 0
        Task.Factory.StartNew(Sub()
                                  Dispatcher.BeginInvoke(Sub() BtnPost.IsEnabled = False)

                                  For ii = 0 To 40
                                      'هنا كود الحلقة'
                                      txt = txt + ii
                                  Next

                                  Thread.Sleep(5000)
                                  MsgBox("تمت العملية بنجاح")

                                  Dispatcher.BeginInvoke(Sub() BtnPost.IsEnabled = True)
                              End Sub)

    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        BtnPost.IsEnabled = True
    End Try
End Sub