Обновление элементов управления (Progressbar, Label и т. Д.) Во время работы некоторого кода на vb.net

Question

Я использую интерфейс COM программы третьей части для запуска некоторых моделей. В то же время tCOM-интерфейс дает мне возможность убедиться, что модель все еще работает и каков ее процент выполнения / выполнения с приведенными ниже кодами.

Но моя главная проблема в том, что элементы управления winform не обновляются.

Private Sub NewMethod()
        Dim obj As IScrBackgroundSolverResult

        'This is COM interface procedure runs my model at the 3rd part program
        ‘Runs some code in background   
        obj = integBG("D:\Test\sample_model.mnf")

        ' Returns True if it's running otherwise False - This information comes from 3rd part's com interface isRunning() function
        obj.isRunning()

        ' Returns True if it's running otherwise False - This information comes from 3rd part's com interface getProgress() function
        ' It's start from 0 to 100
        obj.getProgress()

        While obj.isRunning = True
            ProgressBar1.Value = obj.getProgress
            Label1.Text = "Running"
        End While
    End Sub

Функции работают должным образом, но, как я уже сказал, я не могу обновить элементы моего раздела кода ниже.

   While obj.isRunning = True
        ProgressBar1.Value = obj.getProgress
        Label1.Text = "Running"
    End While