Visual Basic

Imports System.ComponentModel
Imports System.ComponentModel.Design
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms.Design
Imports System.Windows.Forms.Design.Behavior
<ToolboxItem(False)> _
<Designer(GetType(BorderlessForm.BorderlessFormDesigner))> _
Public Class BorderlessForm
    ', GetType(ParentControlDesigner))> _

    Const ConstGridBorderlessTitle As String = "BorderlessForm"

    ' The MenuStrip object and access for the Designer
    Private _MenuStrip As MenuStrip
    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
    Public ReadOnly Property MenuStrip1() As MenuStrip
        Get
            Return Me._MenuStrip
        End Get
    End Property

    ' The property to enable showing a MenuStrip
    <CategoryAttribute(ConstGridBorderlessTitle), _
    EditorBrowsable(EditorBrowsableState.Always), _
    DesignerSerializationVisibility(DesignerSerializationVisibility.Visible), _
    Browsable(True), _
    [ReadOnly](False), _
    BindableAttribute(False), _
    DefaultValueAttribute(GetType(Boolean), "False"), _
    DesignOnly(False), _
    DescriptionAttribute("Show/hide MenuStrip.")> _
    Public Property EnableMenuStrip() As Boolean
        Get
            Return (Me._MenuStrip IsNot Nothing)
        End Get
        Set(ByVal value As Boolean)
            If value = True Then
                If Me._MenuStrip Is Nothing Then
                    Me._MenuStrip = New MenuStrip()
                    Me._MenuStrip.BackColor = Color.LightSteelBlue
                    Me._MenuStrip.Dock = DockStyle.None
                    Me._MenuStrip.Location = New System.Drawing.Point(6, 24)
                    Me._MenuStrip.Name = "BFMenuStrip"
                    Me._MenuStrip.Size = New System.Drawing.Size(336, 24)
                    Me._MenuStrip.TabIndex = 0
                    Me._MenuStrip.Text = "BFMenuStrip"
                    Me.Controls.Add(Me._MenuStrip)
                End If
            ElseIf Me._MenuStrip IsNot Nothing AndAlso Me.Controls.Contains(Me._MenuStrip) = True Then
                Me.Controls.Remove(Me._MenuStrip)
                Me._MenuStrip = Nothing
            End If
        End Set
    End Property


    Public Class BorderlessFormDesigner
        Inherits System.Windows.Forms.Design.ParentControlDesigner

        ' Host object
        Private HostControl As BorderlessForm = Nothing
        ' Used to refresh action list when it changes.
        Private ActionUiService As DesignerActionUIService = Nothing

        ''' <summary>
        ''' Initialization
        ''' </summary>
        ''' <param name="component"></param>
        ''' <remarks></remarks>
        Public Overrides Sub Initialize(ByVal component As System.ComponentModel.IComponent)
            MyBase.Initialize(component)

            If Me.Control Is BorderlessForm Then

                HostControl = DirectCast(component, BorderlessForm)

                ' Give designer access to MenuStrip
                EnableDesignMode(HostControl.MenuStrip1, "BFMenuStrip")
            End If

            ' Acquire a reference to DesignerActionUIService.
            'Me.ActionUiService = GetService(GetType(DesignerActionUIService))

        End Sub
    End Class

End Class

Hi All,

I have a MS Word fillable form template that has many fields I wold like to have an interactive QR Code to incode three fields [Account Number], [Form Name] and [Date] that once the user fill out the form the QR will capture the data entered and generated like pdf forms.

I have downloaded a free QR Code font but unfortunately, it generate many qr for each character not combine to one.

Is there any work around by useing VBA to combine them to one QR?

By the way I found a built-in QR in MS Word 2013 but I do not know how to use it.

Any suggestions would be appreciated.

Thanks in advance.