Simple command for counting number of types?

No, but you can easily do it yourself.

For M.MyType = each MyType
Count = Count + 1
next