Option Explicit
 
Private Sub Command1_Click(Index As Integer)
  MsgBox SSTab1.Tab & "; " & Command1(0).Left & "; " & Command1(1).Left & "; " _
    & Command1(2).Left
End Sub
 
Private Sub Form_Load()
  Dim c As CommandButton
 
  For Each c In Command1
    If c.Left < 0 Then
      c.Left = (c.Left + 75000) * 2 - 75000
    Else
      c.Left = c.Left * 2
    End If
  Next
End Sub