Menus Recursivos vbnet

Private Sub btnAsignar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAsignar.Click
callrecursive(TrvPermisos)
End Sub
Private Sub print(ByVal n As TreeNode)
'Dim codPerfil As String = Convert.ToString(Me.cboPerfil.SelectedValue)
Dim codUsuario As String = Convert.ToString(Me.cboUsuarios.SelectedValue)

Dim mAd = New UsuariosAD
Dim mAl = New UsuariosEN
Dim r As Integer
mAl.id = codUsuario
Dim node As TreeNode
'Por cada nodo de la raiz
For Each node In n.Nodes

If node.Checked = True Then
MessageBox.Show(node.Tag)
mAl.NameTag = node.Tag
mAl.statePer = 1
r = mAd.AddMenusforUser(mAl)
print(node)
ElseIf node.Checked = False Then
mAl.NameTag = node.Tag
mAl.statePer = 0
r = mAd.AddMenusforUser(mAl)
End If

Next
End Sub
Private Sub callrecursive(ByVal tree As TreeView)
'Dim codPerfil As String = Convert.ToString(Me.cboPerfil.SelectedValue)
Dim codUsuario As String = Convert.ToString(Me.cboUsuarios.SelectedValue)

Dim mAd = New UsuariosAD
Dim mAl = New UsuariosEN
Dim r As Integer
mAl.id = codUsuario

Dim n As TreeNode
Dim rs As String
'Por cada raíz
For Each n In tree.Nodes
If n.Checked = True Then
'MessageBox.Show(n.Tag)
rs = n.Tag
mAl.NameTag = rs
mAl.statePer = 1
r = mAd.AddMenusforUser(mAl)
print(n)
ElseIf n.Checked = False Then
rs = n.Tag
mAl.NameTag = rs
mAl.statePer = 0
r = mAd.AddMenusforUser(mAl)
print(n)
End If
Next
End Sub