Editing Changing Font on a TreeNode

Pass in a TreeNode, and it's text is made Bold.

  Sub BoldNode(ByVal NN As TreeNode)
        Dim NodeFont As Drawing.Font
        Try
            NodeFont = NN.NodeFont
        Catch ex As Exception
            NodeFont = tvMainData.Font
        End Try
        Dim NXS As Drawing.FontStyle = FontStyle.Bold
        Dim nx As New Drawing.Font(tvMainData.Font, NXS)
        NN.NodeFont = nx
  End Sub