Code

 <Serializable()> Friend Class GroupProps
	  Public groupId As Integer = 0
    End Class 

Code

Private Sub fc_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles fc.MouseMove
	  If e.Button = MouseButtons.None Then
		Dim point As New Point(e.X, e.Y)
		Dim mousePos As New PointF
		tboxcreating = False
		mousePos = fc.ClientToDoc(point)
		currentBox = fc.GetNodeAt(mousePos, True, True)
		If Not currentBox Is Nothing Then
		    If currentBox.Shape.Id = "Rectangle" Then
			  fc.Behavior = BehaviorType.CreateBox
			  tboxcreating = True
			  '
			  Dim boxprop As boxProps = currentBox.Tag
			  Dim FGroup As New groupProps
			  FGroup.groupId = boxprop.boxId
			  currentGroup = fc.FindGroup(FGroup)
			  '
		    Else : fc.Behavior = BehaviorType.FlowChart
		    End If
		End If
	  End If
    End Sub


 Private Sub fc_BoxCreated(ByVal sender As Object, ByVal e As MindFusion.FlowChartX.BoxConfirmArgs) Handles fc.BoxCreating

	  onBoxCreated(e.Box)
	  If e.Box.Shape.Id = "Rectangle" Then
		Dim boxprop As boxProps = e.Box.Tag
		Dim groupProps = New groupProps
		newgroup = fc.CreateGroup(e.Box)
		newgroup.Tag = groupProps
		Dim groupTag As groupProps = newgroup.Tag
		groupTag.groupId = boxprop.boxId
	  End If

	  If tboxcreating = True Then
		currentgroup.AttachToCorner(e.Box, 0)
	  End If
    End Sub


    Private Sub onBoxCreated(ByVal node As Box)
	  Dim props = New boxProps
	  count += 1
	  node.Tag = props
	  Dim boxTag As boxProps = node.Tag
	  boxTag.boxId = count
    End Sub 

Code

currentGroup = currentBox.SubordinateGroup