[مساعدة]

السلام عليكم

اطلع على هذا الكود

كود :

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim new_cls As New Cls_ali
        new_cls.theName = "ali"

        Dim new_cls_2 As Cls_ali = new_cls
        MsgBox(new_cls_2.theName)

    End Sub

End Class


Class Cls_ali

    Property theName As String

End Class