[silverlight]

من الممكن ان تستخدم دالة مثل الموجودة في الكود التالي لتحصل علي جميع الفورم المفتوحة
ثم تتأكد ان الفورم Active أو Selected و بناء عليه تقوم بطباعته كيفما شئت

كود :

Friend Function GetForm(formName As String) As Form

       If Application.OpenForms.Count = 0 Then
           Return CType(Nothing, Form)
       End If

       For i As Integer = 0 To Application.OpenForms.Count - 1
           Dim currentForm As Form = Application.OpenForms(i)
           If currentForm IsNot Nothing AndAlso Not currentForm.IsDisposed AndAlso currentForm.IsHandleCreated Then
               If currentForm.Name = formName Then
                   Return currentForm
               End If
           End If
       Next

       Return CType(Nothing, Form)
   End Function

عليك أن تضع في اعتبارك أن إسم الفورم الذي سوف تمرره للدالة Case-Sensitive أي أنك يجب أن تمرر الاسم بكل دقة

مثلا للحصول علي الفورم رقم 1

PHP كود :

Dim currentform As Form = CType(GetForm("Form1"), Form) 


وطالما حصلت علي الفورم أصبح كل شئ سهلا بعد ذلك