Dim instance As New TestKlasse
 
      For Each pi As PropertyInfo In instance.GetType.GetProperties
         If pi.PropertyType Is GetType(Double) Then
            Debug.WriteLine(pi.Name)
         End If
      Next