The example also uses a form (Form1
) with a button (Command1
), and a label (Label1
). When the form is loaded, the Caption property of the label is set to "Move", the name of the method to invoke. When you click the button, the CallByName function invokes the method to change the location of the button.
Option Explicit Private Sub Form_Load() Label1.Caption = "Move" ' Name of Move method. End Sub Private Sub Command1_Click() If Command1.Left <> 0 ThenCallByName
Command1, Label1.Caption, vbMethod, 0, 0 ElseCallByName
Command1, Label1.Caption, vbMethod, 500, 500 End If