Моделирование игры в дартс VB 6.0

Randomize
r0 = 82
g = 3
d = 9
 tohka.x = Int(2 * r0 * Rnd - r0)
 tohka.y = Int(2 * r0 * Rnd - r0)
 R = (tohka.x ^ 2 + tohka.y ^ 2) ^ 0.5
 
 GameField.DrawWidth = 3
 GameField.Line (tohka.x - g, tohka.y - g)-(tohka.x + g, tohka.y + g), z ' рисуем крестик
 GameField.Line (tohka.x + g, tohka.y - g)-(tohka.x - g, tohka.y + g), z

Private Function tohka(z) As Point

Private Type Point
        x As Long
        y As Long
End Type

Else
    If rad < 1100 Then
        bax = 25
        Exit Function

  bax = mas(j, 1) * (2 - Round(rad / 1130, 0))

wd = Picture1.Width - 120: ht = Picture1.Height - 110

If rad > 1820 Then
    bax = 0
    Exit Function
Else
    If rad < 25 Then
        bax = 50
        Exit Function
    Else
        If rad < 60 Then
            bax = 25
            Exit Function
        End If
    End If
End If

Option Base 1
Dim a(20, 2) As Single, r As Single, pi As Single, nach As Single, xx As Single, yy As Single
Dim wd As Single, ht As Single, rad As Single, IGROK As Integer
Dim Kol(2) As Integer, k As Integer
 
Private Sub Command1_Click(Index As Integer)
Dim clr As String
If Index = 0 Then
    clr = vbGreen
    Else
    clr = vbBlue
End If
ok = bax(a, xx, yy)
Picture1.Line (wd / 2 + xx - 70, ht / 2 - yy + 70)-(wd / 2 + xx + 70, ht / 2 - yy - 70), clr
Picture1.Line (wd / 2 + xx + 70, ht / 2 - yy + 70)-(wd / 2 + xx - 70, ht / 2 - yy - 70), clr
List1(Index).AddItem (ok)
List1(Index).Selected(List1(Index).NewIndex) = True
Kol(IGROK + 1) = Kol(IGROK + 1) - ok
Label2(Index) = "Количество очков:" & Kol(IGROK + 1)
If Kol(IGROK + 1) <= 0 Then
    Label3 = "Выиграл " & IGROK + 1 & "-й игрок!"
    Command1(0).Enabled = False
    Command1(1).Enabled = False
    Command2.Enabled = True
    Exit Sub
End If
k = k + 1
If k = 3 Then
    Command1(IGROK).Enabled = False
    If IGROK = 0 Then
        IGROK = 1
        Else
        IGROK = 0
    End If
    Command1(IGROK).Enabled = True
    k = 0
End If
End Sub
 
Private Sub Command2_Click()
List1(0).Clear
List1(1).Clear
IGROK = Timer Mod 2
Command1(IGROK).Enabled = True
Kol(1) = 301: Kol(2) = 301
Label2(0) = "Количество очков:" & Kol(1)
Label2(1) = "Количество очков:" & Kol(2)
k = 0
Label3 = ""
Command2.Enabled = False
End Sub
 
Private Sub Command3_Click()
End
End Sub
 
Private Sub Form_Activate()
pi = 3.1415926535
cuts = Split("20,1,18,4,13,6,10,15,2,17,3,19,7,16,8,11,14,9,12,5", ",")
 
Picture1.DrawWidth = 3
nach = -2 * (pi / 40)
a(1, 1) = 1
a(1, 2) = nach
For i = 2 To 20
    a(i, 1) = cuts(i - 1)
    nach = nach + 2 * pi / 20
    a(i, 2) = nach
Next i
wd = Picture1.Width - 120: ht = Picture1.Height - 120
End Sub
Function bax(mas, x, y) As Integer
Dim ug As Single, j As Integer, i As Integer
Randomize Timer
x = 3700 * Rnd() - 1850
y = 3700 * Rnd() - 1850
rad = Sqr(x ^ 2 + y ^ 2)
Select Case True
    Case x > 0 And y > 0: ug = Atn(x / y)
    Case x > 0 And y < 0: ug = pi - Atn(x / Abs(y))
    Case x < 0 And y > 0: ug = 2 * pi - Atn(Abs(x) / y)
    Case x < 0 And y < 0: ug = Atn(x / y) + pi
End Select
If rad > 1820 Then
    bax = 0
    Exit Function
    Else
    If rad < 25 Then
        bax = 50
        Exit Function
        Else
        If rad < 60 Then
            bax = 25
            Exit Function
        End If
    End If
End If
mas(1, 2) = -2 * pi / 40
For j = 1 To 20
    If ug >= mas(j, 2) And ug < (mas(j, 2) + 2 * pi / 20) Then
        bax = mas(j, 1) * (2 - Round(rad / 1130, 0))
        Exit Function
    End If
Next j
End Function