Public Class Class1
  Public param_01 As New DataType_test
  Public param_02 As New DataType_test
  Public param_03 As New DataType_test
 
  Public param_List As List(Of DataType_test)
 
  Public Sub New()
 
    For Each CurrentMember As System.Reflection.MemberInfo In _
      Me.GetType.GetMembers
      'Abfragen, ob CurrentMember ein DataType_test ist. (Die Zeile 
      ' funktioniert so nicht.)
      If GetType(CurrentMember) Is GetType(DataType_test) Then 
        'Wenn ja, dann zu param_List hinzufügen (Die Zeile funktioniert so 
        ' nicht.)
        param_List.Add(CurrentMember)
      End If
    Next
  End Sub
End Class
 
Public Class DataType_test
  Public Value As Double
  'usw...
End Class