[bidaya]

كود :

Private Shared Function smethod_3(ByVal string_4 As String) As String
       Dim str As String = "ADwALwBQAFIATwBUAEUAQwBUAE"
       Dim s As String = string_4
       Dim num As UInt32 = PrivateImplementationDetails.ComputeStringHash(s)
       If (num = &H360CAA42) Then
           Select Case num
               Case &HE630CAF
                   If (s = "176") Then
                       str = "AE8APgA8AEsARQBZAEwARQBPAEsAUwBVAE0APgA8AC8ARABBAFQAQQA+ADwALwBXAFIATQBIAEUAQQBEAEUAUgA+AA=="
                   End If

           End Select
         
       End If
       Return True

   End Function

الخطا في كلمة  

كود :

PrivateImplementationDetails

ربما تكون مكتبة ناقصة ؟؟؟؟؟؟؟

ارجو المساعدة في هذا المشكل