Attribute VB_Name = "ModRunBullet"
Option Explicit

Public HdcBaffer As Long       '主界面緩沖區

'public
Public BulNew As Bullet
Public BulBaf(1 To 100) As RunBullet        '主界面最多存在100 顆子彈                           ‘’動態類型
Public Function BulletRunNew(ByVal HdcBul As Long, ByVal Cx As Single, ByVal Cy As Single, ByVal TypeBul As Byte)
    Dim Cb As Byte      '記數
        For CountBul = 1 To 100
            If BulBaf(Cb).HdcRun = 0 Then
                Select Case TypeBul
                    Case 0
                        
End Function