Public Retning  'global variabel

Private Sub Form1_Load(ByVal sender As System.Object, _
                       ByVal e As System.EventArgs) _
                       Handles MyBase.Load
Retning = "Venstre"
Timer1.Enabled = True
Timer1.Interval = 50
Me.BackColor = Color.White
pic1.Visible = False
pic2.Visible = False
pic3.Visible = False
pic4.Visible = False
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, _
                        ByVal e As System.EventArgs) Handles Timer1.Tick
'Denne prosedyren kjøres hver gang timeren tikker, dvs temmelig ofte.
'Deklarerer en flaggvariabel. Brukes for å velge det ene eller det andre
'bildet, så sommerfuglen "flakser".

Static VisFugl As Boolean

'Flytt sommerfuglen enten mot venstre eller høyre, avhengig av var retning:
Select Case Retning
    Case "Venstre"
    'Flytt sommerfuglen 2 pixler mot venstre:
    picFly.Left = picFly.Left - 2  '-2 er lenger mot venstre

    'Bytt mellom bilde 3 og bilde 4 når sommerfuglen flyr mot venstre:
    If VisFugl Then
        picFly.Image = pic3.Image
    Else
        picFly.Image = pic4.Image
    End If

    'Bytt verdien på boolsk variabel visFugl,
'så vi får det andre bildet neste gang timeren kjører:
    VisFugl = Not VisFugl

    'Bytt retning hvis sommerfuglen treffer venstrekanten av skjemaet.
    '(Hvis ikke forsvinner den bare ut av skjermen)
    If picFly.Left <= 0 Then Retning = "Høyre"

    Case "Høyre"
    'Flytt sommerfuglen 2 pixler mot høyre:
    picFly.Left = picFly.Left + 2  '+2 er lenger mot høyre

    'Bytt mellom bilde 1 og bilde 2 når sommerfuglen flyr mot høyre:
    If VisFugl Then
        picFly.Image = pic1.Image
    Else
        picFly.Image = pic2.Image
    End If

    'Bytt verdien på visFugl, så vi får det andre bildet neste gang:
    VisFugl = Not VisFugl

    'Bytt retning hvis sommerfuglen treffer venstrekanten av skjemaet.
    '(Hvis ikke forsvinner den bare ut av skjermen)
    If picFly.Left >= 450 Then  'antar at skjemaet er 400 pixler bred
        Retning = "Venstre"
    End If
End Select
End Sub