Private Sub PrintAr()
Dim i As Integer, j As Integer
Form1.P1.Cls
For i = 1 To N
 For j = 0 To MaxDepth
  Form1.P1.Print StData(i, j);
 Next
 Form1.P1.Print
Next
End Sub

Public Function WinnerB(Ind As Integer) As Integer
Dim i As Integer, j As Integer, k As Integer
Dim Flag As Boolean, Value As Integer

For i = 1 To N
 For j = 1 To M(i).Count
  Value = M(i)(j)
  Flag = True
  For k = 1 To 3
   If i + k > N Then Flag = False: Exit For
   If M(i + k)(j) <> Value Then Flag = False: Exit For
  Next
  If Flag Then Winner = Value: Exit Function
  
  Flag = True
  For k = 1 To 3
   If j + k > M(i).Count Then Flag = False: Exit For
   If M(i)(j + k) <> Value Then Flag = False: Exit For
  Next
  If Flag Then Winner = Value: Exit Function
  
  Flag = True
  For k = 1 To 3
   If i + k > N Then Flag = False: Exit For
   If j + k > M(i + k).Count Then Flag = False: Exit For
   If M(i + k)(j + k) <> Value Then Flag = False: Exit For
  Next
  If Flag Then Winner = Value: Exit Function
  
  Flag = True
  For k = 1 To 3
   If i - k < 1 Then Flag = False: Exit For
   If j + k > M(i - k).Count Then Flag = False: Exit For
   If M(i - k)(j + k) <> Value Then Flag = False: Exit For
  Next
  If Flag Then Winner = Value: Exit Function
  
 Next
Next
Winner = 0
End Function
