シューティングの弾の２発目を表示するには？

チキハル 2007-03-19 10:48:28 No: 98315

こんにちわ。よろしくお願いします。

VB.NET2003でシューティングゲームを作っているのですが
Private Sub Timr_Tickに

**********

If Picshotenemy1.Visible = False Then
            If PicEnemy1.Left + PicEnemy1.Size.Width
            > Me.Width - 100 Then
                Picshotenemy1.Visible = True

                ''ショットが敵の動きについてくる
                Picshotenemy1.Top = PicEnemy1.Top -                   piccshotenemy1.Height
                Picshotenemy1.Left = PicEnemy1.Left + 40
            End If
        End If

**********
と  書いているのです。
  僕は  弾が左のフォームの壁から-100の場所にいったら弾を敵が毎回
撃つとしたいのですが  最初の一回しか撃つことができません。

  どうすれば毎回-100の場所に行ったときに弾をうつことが
  できますか？  お願いします。

通ってみた 2007-03-20 00:57:12 No: 98316

If 敵の弾のＸ座標 < -100 Then
２発目準備
End If

でいいのでは？
ただし、敵の弾のＸ座標を初期化しないと、-100からどんどんマイナスになっていく＝見えないという現象になると思いますけどね