Windows Forms

Try
            Dim copies As String
            Dim price As String
            Dim EXP As String
            Dim ItemName As String
            GetPharmacyName()
            GetValuesFromGrid()
            ReDim myarray(myarr.Length - 1)
            myarr.CopyTo(myarray, 0)
            Using btEngine As New Engine(True)
                btEngine.Start()
                For i = 0 To UBound(myarray)
                    If myarray(i) <> -1 Then
                        copies = dgvOrders.Item(3, myarray(i)).Value
                        price = GetPrice(dgvOrders.Item(0, myarray(i)).Value.ToString)
                        EXP = dgvOrders.Item(2, myarray(i)).Value.ToString
                        ItemName = dgvOrders.Item(1, myarray(i)).Value.ToString
                        Dim Barcode As String = GetID(dgvOrders.Item(0, myarray(i)).Value.ToString)
                        Dim btFormat As LabelFormatDocument = btEngine.Documents.Open("C:\Standard.btw")
                        'btFormat.PrintSetup.NumberOfSerializedLabels = 4
                        If copies <> 0 Then
                            btFormat.PrintSetup.IdenticalCopiesOfLabel = copies
                            btFormat.SubStrings("ID").Value = Barcode
                            btFormat.SubStrings("Pharmacy_Name").Value = Pharm_Name
                            btFormat.SubStrings("Price").Value = "Price: " & price & " SDG "
                            ' btFormat.SubStrings("Pharmacy_Tel").Value = Tel
                            btFormat.SubStrings("EXP").Value = "EXP Date: " & EXP
                            btFormat.SubStrings("Item").Value = "Item : " & ItemName
                            ' Print the label
                            Dim result As Result = btFormat.Print()
                            btFormat.Close(SaveOptions.DoNotSaveChanges)
                        End If
                    End If
                Next i
                btEngine.Stop(SaveOptions.SaveChanges)
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

public partial class HomeHeader : UserControl
{
    public HomeHeader()
    {
        InitializeComponent();
    }

    protected override void OnClick(EventArgs e)
    {
	base.OnClick(e);
    }

    protected override void OnMouseDoubleClick(MouseEventArgs e)
    {
	base.OnMouseDoubleClick(e);
    }

    protected override void OnMouseDown(MouseEventArgs e)
    {
	base.OnMouseDown(e);
    }

    protected override void OnMouseMove(MouseEventArgs e)
    {
	base.OnMouseMove(e);
    }

    protected override void OnMouseUp(MouseEventArgs e)
    {
        base.OnMouseUp(e);
    }
}