Private Sub Test(ByRef BS As BrdState)
Dim TBS As BrdState
Dim i As Integer, j As Integer
BS.CellState(1, 2) = 3
TBS = New BrdState
TBS.Initialize()
For i = 1 To 8
For j = 1 To 8
If (i > 2 And i < 7) Then Exit For
If (BS.CellState(i, j) = 3) Then
TBS = BS
Test2(TBS)
End If
Next
Next
End Sub

Private Sub Test2(ByRef BS As BrdState)
BS.CellState(1, 2) = 5
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CBS.Initialize()
Test(CBS)
End Sub
End Class