普通に自機から弾が出るんじゃなくて

Picture1.Top = Y
Picture1.Left = X
Picture2.Top = 10000 - Y
Picture2.Left = 10000 - X

１が本体で、２を敵機に当てるというのを考えています。

敵機は画面端にコントロール配置して、

Private Sub Timer4_Timer()
sb = Int(Rnd * 5.5)
For j = 0 To 5
If j <> sb Then
Label2(j).Visible = False

Else
Label2(j).Visible = True

End If
Next
End Sub

Private Sub Timer5_Timer()
For j = 0 To 5
ma = ma + 10
Label2(j).Left = ma
If ma >= 10000 Then
ma = 0

End If
Next

End Sub

こんな感じで敵機が１つだけ表示するようにしています。
でもこれだと移動中に敵機表示が切り替わってしまいます。