[silverlight]

مثل هذا

PHP كود :

Friend NotInheritable Class FormUtility

    Public Shared Sub CeneterFormText(anyform As Form)

        Dim g As Graphics = anyform.CreateGraphics()
        Dim startingPoint As Double = (anyform.Width / 2) - (g.MeasureString(anyform.Text.Trim, anyform.Font).Width / 2)
        Dim widthOfASpace As Double = g.MeasureString(" ", anyform.Font).Width
        Dim tmp As String = " "
        Dim tmpWidth As Double = 0
        Do
            tmp += " "
            tmpWidth += widthOfASpace
        Loop While (tmpWidth + widthOfASpace) < startingPoint

        anyform.Text = tmp & anyform.Text.Trim & tmp

        anyform.Refresh()
    End Sub

End Class 


و الاستخدام مثل هذا

PHP كود :

  FormUtility.CeneterFormText(Me) 


بس ياريت تخللي بالك ان الكود الأصلي به اخطاء
أيضا يجب عمل dispose للجرافكس