[silverlight]

الحل سيكون بالشكل التالي

كود :

Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim anythingClass As New AnyThing
       anythingClass.AnythingString = "Person"
       anythingClass.Anyperson.AnythingString = anythingClass.AnythingString
       anythingClass.Anyperson.ShowAnything()
   End Sub
End Class


Public Class AnyThing
   Public AnythingString As String
   Public Anyperson As New Person
End Class

Public Class Person

   Public AnythingString As String
   Public Sub ShowAnything()
       If Me.AnythingString = "Person" Then
           MessageBox.Show(Me.AnythingString.ToString)
       End If
   End Sub
End Class