13-05-20, 10:47 PM
السلام عليكم اريد عمل Invoke لهذا الكود لوضعه في BackGroundWorker
كود :
Private Function ResolveFBAccount(ByVal text As String) As String
Dim a() As String = Split(text, "&")
Return a(0)
End Function
Private Function Res(ByVal text As String) As String
Dim b() As String = Split(text, "=")
Return b(1)
End Function