Морской бой: написать логику для стрельбы компьютера - VB

Private Sub Picture2_Click()
Dim i, j
For i = 0 To 5000 Step 500
    For j = 0 To 5000 Step 500
        If X1 > i And X1 < i + 500 And Y1 > j And Y1 < j + 500 And A(i / 500, j / 500) = 0 Then
            A(i / 500, j / 500) = 1
            Form1.Picture2.Line (40 + i, 40 + j)-(460 + i, 460 + j), RGB(255, 0, 0), BF
        End If
    Next j
Next i
End Sub