Dim direccion As String
Dim cantidad As Long

Private Sub Command1_Click()
direccion = "i"
End Sub

Private Sub Command2_Click()
direccion = "d"
End Sub

Private Sub Form_Load()
direccion = "i" 'por default, se mueve a la izquierda
cantidad = Me.ScaleX(10, vbPixels, vbTwips) 'convierte 10 pixeles en twips, para no cambiar el scalemode
Timer1.Interval = 50
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If direccion = "i" Then
    'derecha a izquierda
    Label1.Left = Label1.Left - cantidad
    If (Label1.Left + Label1.Width) < 0 Then
        Label1.Left = Me.ScaleWidth
    End If
Else
    'izquierda a derecha
    Label1.Left = Label1.Left + cantidad
    If Label1.Left > Me.ScaleWidth Then
        Label1.Left = Label1.Width * -1
    End If
End If
End Sub