All pastes #535725 Raw Edit

Something

public text v1 · immutable
·published 2007-06-04 04:53 UTC
rendered paste body
Private Sub tmrEnemy_Timer()
    txtDebug.Text = txtDebug.Text & "Enemy Position = " & picEnemy.Left & vbCrLf
    
    Select Case blnShit
        Case False
            picEnemy.Left = picEnemy.Left + 2
        Case True
            picEnemy.Left = picEnemy.Left - 2
    End Select
    
    DoEvents
    
    Select Case picEnemy.Left
        Case 0
            blnShit = False
        Case 264
            blnShit = True
    End Select
        
End Sub