VB可不可以这样写代码？

Question

Private Sub Command1_Click()
    Command1.Caption = "ABC"
End Sub我的意思是用一个变量代替Command1，比如,com1
比如代码写成
Private Sub Command1_Click()
    Com1.Caption = "ABC"
End Sub
这样也一样也可实现Command1.Caption = "ABC"
当然首先对Com1做一些声明什么之类的处理。如果可以的话就最好了，
这样在改一个控件的名字的时候就不用改那么多的代码了，
当然这样会用更多的系统资源。
希望各位热心的朋友帮助看看。

Answer 1

Dim WithEvents Com1 As CommandButton
Private Sub Form_Load()
    Set Com1 = Controls.Add("VB.CommandButton", "ccc1")
    Com1.Caption = 1
    Com1.Visible = True
    Com1.Move 840, 480, 1455, 375
End Sub
Private Sub Com1_Click()
    Com1.Caption = "ABC"
End Sub

Answer 2

Private Sub Command1_Click()
    Dim Com1 As CommandButton
    
    Set Com1 = Command1
    
  Com1.Caption = "ABC"
End Sub