bw:BackgroundWorker
bw.WorkerReportsProgress = True


    Private Sub bw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bw.DoWork
        bw.ReportProgress(50)   '<--- 50は適当な整数
    End Sub

    Private Sub bw_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bw.ProgressChanged
        Clipboard.Clear()　　　　'<---  e.ProgressPercentageで処理を分岐してもよいかも
    End Sub

のようにメインスレッドに処理を戻せば可能です。