For num = 0 To 2

If goodguy.Left < badguy(num).Left + badguy(num).Width And goodguy.Left + goodguy.Width > badguy(num).Left And goodguy.Top < badguy(num).Top + badguy(num).Height And goodguy.Top + goodguy.Height > badguy(num).Top Then

badguy(num).Top = 0 - badguy(num).Height

badguy(num).Left = Int(Rnd * (Form1.ScaleWidth - 2 * goodguy.Width)) + goodguy.Width

lives.Caption = Val(lives.Caption) - 1

If Val(lives.Caption) <= 0 Then

MsgBox ("you dumb")

End

End If

End If
Next


For num = 0 To 2

If bullet.Left < badguy(num).Left + badguy(num).Width And bullet.Left + bullet.Width > badguy(num).Left And bullet.Top < badguy(num).Top + badguy(num).Height And bullet.Top + bullet.Height > badguy(num).Top Then

badguy(num).Top = 0 - badguy(num).Height

badguy(num).Left = Int(Rnd * (Form1.ScaleWidth - 2 * goodguy.Width)) + goodguy.Width

bullet.Visible = False

bullet.Top = Form1.ScaleHeight + 100

shot.Enabled = False

Rem give score

End If

Next


gravityon = 1


Rem For num = 0 To 3

Rem If goodguy.Left < plat(num).Left + plat(num).Width And goodguy.Left + goodguy.Width > plat(num).Left And goodguy.Top < plat(num).Top + plat(num).Height And goodguy.Top + goodguy.Height > plat(num).Top Then

gravityon = 0



Rem End If

Rem Next

Rem If gravityon = 1 Then gravity.Enabled = True

Rem If gravityon = 0 Then gravity.Enabled = False