پروژه ویژوال بیسیک 6 کدهای بازی سه بعدی ویژوال بیسیک 6

یه بازی تفنگی باحال برا برنامه نویسای ویژوال بیسیک 6 حتما خوشتون میاد اگه مشکلی داشتید این ایمیل منه [e-mail]  این هم قسمتی از سورس کدهای برنامه

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