Code

    Private zoomMode As Boolean

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	  zoomMode = False
    End Sub

    Private Sub btnZoom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZoom.Click
	  zoomMode = Not zoomMode
    End Sub

    Private Sub fc_InitializeBox(ByVal sender As Object, ByVal e As MindFusion.Diagramming.WinForms.BoxEventArgs) Handles fc.InitializeBox
	  If zoomMode Then
		e.Box.Style = MindFusion.Diagramming.WinForms.BoxStyle.Rectangle
		e.Box.Brush = New SolidBrush(Color.Transparent)
		e.Box.Pen.DashStyle = Drawing2D.DashStyle.Dot
		e.Box.ShadowColor = Color.Transparent
	  End If
    End Sub

    Private Sub fc_BoxCreated(ByVal sender As Object, ByVal e As MindFusion.Diagramming.WinForms.BoxEventArgs) Handles fc.BoxCreated
	  If zoomMode Then
		fc.ZoomToRect(e.Box.BoundingRect)
		fc.DeleteObject(e.Box)
	  End If
    End Sub