یه بازی تفنگی باحال برا برنامه نویسای ویژوال بیسیک 6 حتما خوشتون میاد اگه مشکلی داشتید این ایمیل منه tiptope.roz@gmail.com این هم قسمتی از سورس کدهای برنامه
Private Sub Shoot()
On Error Resume Next
Bullits = Bullits - 1
Tmp = PlaySound("Fire.wav", 1, 1)
Select Case Dir
Case 1
For Cnt = 0 To 9
Tmp = Right$(Left$(Rows(R - Cnt), C), 1)
If Val(Tmp) >= 5 And Val(Tmp) <= 7 Then
Rows(R - Cnt) = Left$(Rows(R - Cnt), C - 1) & "0" & Right$(Rows(R - Cnt), 12 - C)
Tmp = PlaySound("Kill.wav", 1, 1)
End If
Next Cnt
Case 2
کدهای بازی سه بعدی ویژوال بیسیک 6