Public Class komet
    Dim bild As PictureBox
 
    Public Sub neueinrichten() 'wird ausgelöst, wenn das Bild am unteren Rand 
    ' verschwindet
        Randomize()
        'koordinaten zufällig am oberen Rand setzen, nur so, dass das Bild ganz 
        ' zu sehen ist
        bild.Location = New Point(Int(Rnd() * (Form1.Width - bild.Width)), 0)
        'Bild setzen
        bild.Image = Image.FromFile("C:\ARP\kometenkämpfer2\komet.jpg")
        'Größe auf Autosize
        bild.SizeMode = PictureBoxSizeMode.AutoSize
    End Sub
 
    Public Sub bewegen() 'Komet um eine Einheit bewegen - mit Kollisionsabfrage
        bild.Top += 5
        If bild.Top > Form1.Height Then
            neueinrichten()
        End If
 
        'Kollisionsabfrage mit Form1.Picturebox1
        If ((bild.Left > Form1.PictureBox1.Left And bild.Left < _
          Form1.PictureBox1.Right) Or (bild.Right > Form1.PictureBox1.Left _
          And bild.Right < Form1.PictureBox1.Right)) And ((bild.Top > _
          Form1.PictureBox1.Top And bild.Top < Form1.PictureBox1.Bottom) Or ( _
          bild.Bottom > Form1.PictureBox1.Top And bild.Bottom < _
          Form1.PictureBox1.Bottom)) Then
            Form1.getroffen() 'getroffen-Funktion auslösen
        End If
 
    End Sub
 
    Sub New()
        bild = New PictureBox()
        neueinrichten()
        Form1.Controls.Add(bild)
        bild.Show()
    End Sub