再問用陣列產生多個新的物件(編號：5384)

下列程式執行一次後,再按command1時,就產生"物件已load"訊息,無法繼續執行,如何修改能多次按command1而產生多個新物件
Private Sub Command1_Click()
Load Text1(20)
　 With Text1(20)
　　　 .Top=0
　　　 .Width=500
　　　 .Visible= True
　 End With
End Sub