Private Sub tmrEnemy1_Timer() blnShit = False If blnShit = False Then picEnemy.Left = picEnemy.Left - 2 ' Move 2px Right til End blnShit = True Else If picEnemy.Left = 0 Then picEnemy.Left = picEnemy.Left + 2 blnShit = False End If End If txtDebug.Text = txtDebug.Text & "Enemy Position = " & picEnemy.Left & vbCrLf End Sub