All pastes #534044 Raw Edit

Something

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