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