Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories how to loop a bunch of bitmaps hitting the bottom of the form

pocketpocket Greater LondonMember Posts: 2

Hi there,

I would like to loop some bitmaps I have moving down the form.

Private Sub Timermain_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timermain.Tick

**Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load**
End Sub

Private Sub loadsettings()
    asteroiddown = True
    asteroidspeed = 2
    asteroiddrop = 40
    rocketspeed = 21
    missilespeed = 22
    missile.Visible = False
End Sub

**Private Sub moveasteroid()**
        'Asteroid 1
        If asteroiddown = True Then
            PictureBox1.Top += asteroidspeed
            PictureBox1.Left -= asteroidspeed
        End If
        If PictureBox1.Left + PictureBox1.Width > Me.ClientRectangle.Bottom Then
            asteroiddown = False
            PictureBox1.Top += asteroiddrop
        End If

Private Sub checkgameover()
If PictureBox1.Top + PictureBox1.Width >= Me.ClientRectangle.Bottom And PictureBox1.Visible = True Then
Timermain.Enabled = False
MsgBox("Game Over- Region of space not protected!")
End If

I don't think button code is necessary or for missile fire code to be posted. I only want to loop the program when either of the following occur in 'moveasteroid' and 'checkgameover' subs.

I tried the basic loops such Do until loop, they don't work for this.

Thank you.

Sign In or Register to comment.