VBAのインターフェース実装でオブジェクトセットしたい

前提・実現したいこと

親クラス子クラスの使い方がよく分かっておらず、インターフェースを実装していて、インスタンス宣言後にオブジェクトをセットするとエラーとなります。Webで見つけたコードがベースとなっています。
最終的にクラス側でボタンの文字や色を変更したいと思っています。

発生している問題・エラーメッセージ

オブジェクト変数またはwtihブロック変数が定義されていません。
(何か行を入れ替えた利した際にはオブジェクトは、このプロパティまたはメソッドをサポートしていません。)

該当のソースコード

ソースコード
'#ParentCLS
Public mystatus As Long
Public mycmd As CommandButton

public Sub test()
End Sub


'#ChildCLs.cls
Implements ParentCLS '親クラスの名前を入れる

Private mystatus As Long
Private mycmd As CommandButton

Private Property Let ParentCLS_mystatus(ByVal intValue As Long)
       mystaus = intValue
End Property

Private Property Set ParentCLS_mycmd(ByVal cmdValue As CommandButton)
       Set mycmd = cmdValue
End Property

Private Property Get ParentCLS_mystatus() As Long
        ParentCLS_mystatusr = mystatus
End Property

Private Property Get ParentCLS_mycmd() As CommandButton
        ParentCLS_mycmd = mycmd
End Property

private Sub test()
End Sub


'mainForm
Dim parent As ParentCLS
Dim child As ChildCLS
Set child = new ChildCLS
Set parent = child
with parent
 .mystatus = 0 
 .mycmd = CommandButton1　'←ここでエラー
End With