تحويل أكواد من VB6 إلى Vb .net

الكود الأول يمكن عمله بعدة طرق منها

		While My.Application.OpenForms.Count > 0
			My.Application.OpenForms.Item(My.Application.OpenForms.Count - 1).Close()
		End While

و للحصول على عدد النماذج المفتوحة

My.Application.OpenForms.Count

شكرا اخي الكريم على مساعدتكم

ولقد وجدت الحل لذلك وهو كالاتي:

		For i = Application.OpenForms.Count - 1 To 0 Step -1
			Application.OpenForms(i).Close()
		Next

IsCalendarActive = (Application.OpenForms.Count > 0)

ولكني اعتقد ان هناك اكواد اخرى لم استطع الوصول اليها فارجو مساعدتي في ذلك:

لدي object من نوع PictureBox وهو picYear ولدي هذا الكود

picYear.hDC
picYear.TextHeight(s)

أنا لا ادري hDC ما هو بالتحديد لذا فارجو تعريفه لي واعطاء ماهو البديل له في الVB.NET

وأيضا الدالة TextHeight كل ما اعرفه عنها انها تاخد String ولكن لا اعرف وظيفتها واذا كانت تقوم بارجاع شئ ام لا

ارجو الافادة في ذلك

وشكرا لكم مرة اخرى

أولا - يرجى عدم وضع أكثر من سؤال في نفس الموضوع لتسهيل عملية البحث على الذين سيسألون نفس السؤال مستقبلا

بالنسبة لسؤالك الأخير حول HDC و TextHeight فلم تعد تعمل الطريقة القديمة فالآن كل ما يتعلق بالرسوميات يتم عمله عبر ما يسمى بالـ GDI حاول البحث في المنتدى وأيضا في الكتب الالكترونية عن دروس الـ GDI