[ola]

اولا انت كاتب nameform والمفهوم عن name انه نصي String
فهذا يتناقض بالمفهوم مع اللي انت كاتبه NameForm As System.Windows.Forms.Form

اذا كان فعلا تقصد النوع System.Windows.Forms.Form
فحيكون مثلا TheForm As System.Windows.Forms.Form
هكذا

كود :

Class classname

   Dim TheForm As System.Windows.Forms.Form

   Sub New(ByVal myForm As System.Windows.Forms.Form)
       Me.TheForm = myForm
   End Sub

   Public Sub CheckUp()
       Dim s As String = TheForm.Name
   End Sub

   Private Sub hclick()
       Dim s As String = TheForm.Name
       MsgBox(s)
   End Sub

End Class

الكلاس ما تشوف منه غير CheckUp لانها Public

الحين عندما تريد تنشئ متغير من الكلاس لازم ترسل له في نفس الوقت الفورم المستهدف مثل

كود :

Dim cls As New classname(Me) 'المقصود الفورم اللي تم فيه التعريف

لو انك وضعت كود الكلاس كامل او مشروعك كان ممكن افيدك اكثر بكثير