急求21点游戏的VB.NET代码，很急！！请大家多多帮忙！！谢谢~ ~ ~

这是21点游戏的VB代码。希望对你有用。选项显式枚举CARD _ DRAW CARD _ DRAW _ FACE CARD _ DRAW _ BACK CARD _ DRAW _ INVERT End枚举私有声明函数CDT init Lib " cards . dll "(_ dx A s Long，dy As Long) As Long私有声明函数CDT DRAW Lib " cards . dll "(ByVal hDC As Long，_ ByVal X As Long，ByVal Y As Long，ByVal iCard As Long，_ ByVal iDraw As Long，ByVal Clr As Long) As Long私有声明函数CDT term Lib " cards . dll "()As Long Dim CwidthCheight & amp昏暗的卡和。(51)暗背景颜色& ampDim int card % Dim KH % Dim int time % Dim A %(3)Dim x 1%，x2%，x3%，X4% dimda # dimxs为布尔值dimmar asadodb。记录集dimmsgtext as string ' topic Private Sub ChuTi()。对于i = 0到3的picCard(I ), dim I % int card = 0 mixCard。enabled = True A(I)= Card(I)\ 4+1 picCard(I)。Tag = A(i) picCard(i)。Cls cdtDraw picCard(i)。hDC，0，0，Card(i)，CARD_DRAW_FACE，bgColor Next cmdOK。Enabled = False cmdCancel。Enabled = False定时器1。enabled = True int time = 0 KH = 0 lblExpression。Caption = "" Label3(0)。Caption = "0" txtResult。Text = " "结束Sub