[مساعدة]

السلام عليكم


أولا غير صحيح أن تنشأ كانت جديد ب New وفي نفس الوقت تريد تحويله في سطرك الذي يبدو انك لم تنسخه كما هو من الكود الموجود لديك

كود :

Dim v2 as new VirementBank = Ctype(v1,VirementBank)

يجب أن تكون الفئة Virement موروثة من VirementBank بواسطة Inherits وهذا ما تنفيه الرسالة، إلا إذا كان المقصود بالاشتقاق غير Inherits

سيعمل الكود لو كان مثل

كود :

Dim v1 As New Virement

Dim v2 As VirementBank = CType(v1, VirementBank)

Dim v3 As New VirementBank
v3 = CType(v1, VirementBank)

كود :

Class Virement
    Inherits VirementBank

End Class

كود :

Class VirementBank

End Class