Código Para Hacer Una Factura En Vb 2010

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim contador As Integer

contador = Val(TextBox25.Text) + 1


TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox19.Text = ""
TextBox20.Text = ""
TextBox21.Text =""
TextBox22.Text = ""
TextBox23.Text = ""
TextBox24.Text = ""
TextBox26.Text = ""
TextBox27.Text = ""
TextBox28.Text = ""
TextBox29.Text = ""
TextBox30.Text = ""
TextBox31.Text = ""
TextBox32.Text = ""
TextBox33.Text = ""
TextBox34.Text = ""TextBox35.Text = ""
TextBox36.Text = ""
TextBox37.Text = ""
TextBox38.Text = ""
TextBox39.Text = ""
TextBox40.Text = ""
TextBox41.Text = ""
TextBox42.Text = ""
TextBox43.Text = ""
TextBox44.Text = ""
TextBox45.Text = ""
TextBox46.Text = ""
TextBox47.Text = ""
End Sub
Private Subprintform()
Try

Cursor.Current = Cursors.WaitCursor

With Me.PrintForm1
.PrintAction = Printing.PrintAction.PrintToPreview
.PrinterSettings.DefaultPageSettings.Landscape = True
.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.
ClientAreaOnly) (!—CódigoEnd With de impresión d
la factura--)
Cursor.Current = Cursors.Default


Catch ex As Exception

Cursor.Current = Cursors.Default

MsgBox(ex.ToString, MsgBoxStyle.Critical, "Error")

End Try

End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim subtotal As Double (!—Declaración de variable que sumará el subtotal--)
Dim iva As Double (!--Declaración que obtendrá el IVA--)
Dim total As Double (!--Declaración de variable que sumará el subtotal eiva--)

Dim num1 As Double
Dim num2 As Double
Dim num3 As Double
Dim num4 As Double
Dim num5 As Double
Dim num6 As Double
Dim num7 As Double
Dim num8 As Double
Dim num9 As Double
Dim num10 As Double
Dim num11 As Double
Dim num12 As Double
Dim num13 As DoubleDim num14 As Double
Dim num15 As Double
Dim num16 As Double
Dim num17 As Double
Dim num18 As Double
Dim num19 As Double

Dim can1 As Double
Dim can2 As Double
Dim can3 As Double
Dim can4 As Double
Dim can5 As Double
Dim can6 As Double
Dim can7 As Double
Dim can8 As DoubleDim can9 As Double
Dim can10 As Double
Dim can11 As Double
Dim can12 As Double
Dim can13 As Double
Dim can14 As Double
Dim can15 As Double
Dim can16 As Double
Dim can17 As Double
Dim can18 As Double
Dim can19 As Double

Dim Pre1 As Double
Dim Pre2 As Double
Dim Pre3 As...