TextBox2.Text = My.TestClass.JustForTest(TextBox1.Text(

ولكن تجدر الملاحظة هنا أن الدالات التي ستستخدمها هنا يجب أن تكون Shared أو أن تقوم بتضمينها في Module بدلا من Class وذلك لأن جميع الدالات والخصائص الموجود في Module تكون Shared دائما.

كما يمكنك اعتماد على الميزة الجديدة وهي الفئات الجزئية Partial Class أيضا إضافة عناصر أخرى لبعض فئات مجال الأسماء My مثل الفئة My.Computer أو الفئة My.Application ولفعل ذلك نقوم بإنشاء فئة جزئية بالاسم الصحيح وإضافة العناصر الجديدة التي نريد حيث يجب عليك تعريف هذه الفئة باستخدام Friend حتى تتطابق مع الفئة الأصلية الموجودة سابقا

Namespace My

    ' Extend My.Application Class

    Partial Friend Class MyApplication

        Public Function AppTest() As String

            Return "For Test Purposes"

        End Function

    End Class

End Namespace

واستخدامه أيضا كبقية الفئات الموجودة سابقا

        TextBox3.Text = My.Application.AppTest

وبهذا يصبح الكود الكامل لمثالنا هنا كالتالي

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button1.Click

        TextBox2.Text = My.TestClass.JustForTest(TextBox1.Text(

        TextBox3.Text = My.Application.AppTest

    End Sub

End Class

Namespace My

    ' Add New Class

    Public Class TestClass

        Public Shared Function JustForTest(ByVal SomeText As String) As String

            Return SomeText & ",   " & Now.ToString("dddd dd/MM/yyyy")

        End Function

    End Class

    ' Extend My.Application Class

    Partial Friend Class MyApplication

        Public Function AppTest() As String

            Return "For Test Purposes"

        End Function

    End Class

End Namespace

ويمكنك الآن توسيع مجال الأسماء My بحسب حاجتك وهذا ليس محدودا بتطبيق معين حيث يمكنك إنشاء مكتبة Class Library خاصة بك تضيف بعض الأشياء لمجال الأسماء My واستخدامها في تطبيقاتك وذلك بإضافة مرجع لهذه المكتبة من داخل التطبيق