[سعود]

هل جربت Function؟؟؟

---

كود :

Public Class Class1
   Public Function fname(ByRef f As Form) As String
       Return f.Name
   End Function
   Public Sub gname(ByRef f As Form)
       MsgBox("hellow: " & fname(f))
   End Sub
End Class

كود :

       Dim c As New Class1
       c.gname(Me)

 لا ادري هل هذا ماتريده ام لا