从实例创建多个对象

Question

如何使用与实例不同的名称创建多个对象？

For i = 0 To totalcount - 1
    Dim Medio As New Reloj(rlj)
Next