这时候我们可以使用委托来后期邦定，例如
    Delegate Sub D_SetProgressValue(ByVal mValue As Double)

    Public Sub SetProgressValue(ByVal mValue As Double)
        Dim showvalue As New D_SetProgressValue(AddressOf R_SetProgressValue)
        Me.Invoke(showvalue, mValue)
    End Sub

   Private Sub R_SetProgressValue(ByVal mValue As Double)
        Me.pbrMapLoadStatus.EditValue = mValue
    End Sub