¡Necesitamos urgentemente el código fuente de vb double backgammon!

'Programa de backgammon versión de batalla hombre-máquina

'Requiere 2 controles de etiqueta y 2 controles CommandButton

Función de declaración privada SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Función de declaración privada CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, As Long, As Long, As Long Mientras, Mientras Mientras, Mientras, Mientras, Mientras, Mientras, Mientras, Mientras) ByVal Y1 Mientras, ByVal X2 Mientras, ByVal Y2 Mientras, ByVal X3 Mientras, ByVal Y3 Mientras) Mientras

'Dim PlayStep() As String 'Matriz para grabar el juego

'Dim Label2Cap As String

Private Const BoxL As Single = 50, BoxT As Single = 50, BoxW como simple = 25, BoxN como entero = 18

Dim Table() As Long 'Tablero de ajedrez (0-BoxN, 0-BoxN) 0-Vacío 1-Negro 2-Definir el jugador actual Puntuación de espacio de escritorio

Dim PsCore() As Long 'Define la puntuación de espacio de escritorio actual de la computadora

Dim CsCore() As Long 'Define la puntuación de espacio de escritorio actual de la computadora

Dim pWin() As Boolean 'Define la combinación ganadora del jugador

Dim cWin() As Boolean 'Define la combinación ganadora de la computadora