Option Explicit
Public Left As Node
Public Right As Node
Private Sub Form_Load()
Dim N As New Node
Set N.Left = New Node
Set N.Right = New Node
Set N.Right.Left = New Node
MsgBox MaxDepth(N)
End Sub
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.