All pastes #534281 Raw Edit

Something

public text v1 · immutable
·published 2007-06-03 18:51 UTC
rendered paste body
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