>>505
> Dim c as class1:set c=new class1
そのパターンは
Dim c As New class1
でよくね?