<VB.NET>
'' show all
the parameter values of the element
Public Sub ShowParameters(ByVal elem As Element, _
Optional ByVal header As String = "")
Dim s As String = header + vbCr + vbCr
Dim params As ParameterSet = elem.Parameters
For Each param As Parameter In params
Dim name As String = param.Definition.Name
'' see the helper function below
Dim val As String = ParameterToString(param)
s = s + name + " =
" + val + vbCr
Next
TaskDialog.Show("Revit
Intro Lab", s)
End Sub
</VB.NET>