سئوالی در مورد اشاره به یک command button

[vanidad]

با سلام
دوستان من یک دکمه دارم با نام command1
میخواهم یک متغیر تعریف کنم که به این دکمه command1 اشاره کند و مثلا وقتی میزنم a.caption=zzz عنوان دکمه command1 عوض شود
لطفا راهنمایی کنید

[parselearn]

Dim a As CommandButton

Private Sub Command2_Click()
a.Caption = "sss"
End Sub

Private Sub Form_Load()
Set a = Command1
End Sub