لطف کنید برنامه ی زیر را داخل یک فایل vb 6 قرار دهید

[reza.mirzae]

Dim flag, flag2 As Boolean
Private Sub cmdexit_Click()
End
End Sub
Private Sub Command1_Click()
Command1.Enabled = False
Tir.Visible = True
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim x, y As Integer
x = own.Left
y = own.Top

If (x >= 0) Then
x = x
End If
End Sub
Private Sub Form_Load()
flag = False
flag2 = False
End Sub
Private Sub Timer1_Timer()
Dim x, y As Integer
x = enemy.Left
y = enemy.Top
If (enemy.Left < (Me.Width - enemy.Width) And flag = False) Then
enemy.Left = enemy.Left + 60
ElseIf (enemy.Left >= 0) Then
flag = True
enemy.Left = enemy.Left - 60
Else
flag = False
End If
End Sub
Private Sub Timer2_Timer()
If Tir.Top < 675 Then
Tir.Left = own.Width / 2 + own.Left
Tir.Top = own.Top - 150
End If

Tir.Top = Tir.Top - 65

If ((Tir.Top <= enemy.Top + enemy.Height - 2)) And ((Tir.Left >= enemy.Left And Tir.Left <= enemy.Width + enemy.Left)) Then
TScore.Text = (Val(TScore.Text)) + 1
enemy.Left = 0

Tir.Left = own.Width / 2 + own.Left
Tir.Top = own.Top - 150

Timer1.Enabled = False
Timer2.Enabled = False
Tir.Visible = False
MsgBox ("Your Score=" + TScore.Text)
Tir.Visible = True
Timer1.Enabled = True
Timer2.Enabled = True
End If
End Sub