For Each p As System.Reflection.PropertyInfo In iComp.GetProperties()
    Dim val As Object = p.GetValue(???, Nothing)
    If val Is Nothing Then
    Else
        MessageBox.Show(p.Name & " = " & Val.ToString())
    End If
Next