VB.NET使用委托解决窗体卡死的情况

    Private Sub 开始读取(sender As Object, e As EventArgs) Handles 开始读取参数按钮.Click
        Dim myInvoker As MethodInvoker = New MethodInvoker(AddressOf 读取参数LongTime)
        myInvoker.BeginInvoke(Nothing, Nothing)
    End Sub
    Private Delegate Sub updateDelegate(ByVal item, ByVal 列表框) '声明一个委托，参数和委托的过程参数保持一致
    Sub 读取参数LongTime()
        'do something
        '假如里面有个ListBox要在这个过程中更新，那么也要使用委托
        '更新ListBox1列表框内的item
        Me.Invoke(New updateDelegate(AddressOf updateItem), updateValue, ListBox1) '委托和过程绑定并执行
    End Sub
    Private Sub updateItem(ByVal item, ByVal 列表框) '委托绑定的过程
        列表框.Items.add(item)
    End Sub

使用委托可以避免窗体假死，但是实际测试发现，程序实行的时间变的很长，不知道有什么办法解决？？？