[Osama_Ghareeb]

كود :

Dim S As String = "My Forms : " & vbNewLine
        [COLOR=#ff0000]For Each PropertyObj As Reflection.PropertyInfo In My.Forms.GetType.GetProperties()
[/COLOR]            S += ([color=#ff0000]PropertyObj.Name[/color])
            S += (vbNewLine)
        [COLOR=#ff0000]Next
[/COLOR]        MsgBox(S)