[silverlight]

هذه دالة تصلح ببإستخدام مع أي كونترول و تصلح مع الفورم أيضا

PHP كود :

  Public Function GetWindowText(hwnd As IntPtr) As String
        If hwnd <> IntPtr.Zero Then
            Dim ctrl As Control = TryCast(Control.FromHandle(hwnd), Control)
            Return ctrl.Invoke(New Func(Of String)(Function() ctrl.Text))
        End If
        Return String.Empty
    End Function 


فقط مرر Handle الصحيح لها
مثال مع الفورم

PHP كود :

Dim s as String = GetWindowText(Me.Handle)