Non so se va bene
codice:
    Public Sub xxx()
        Dim q As New Threading.Thread(AddressOf System.Threading.Thread.MemoryBarrier)
        q.Start()
        Me.Update()
    End Sub