Visual Basic

if not (Me.txtNvs.SelectionStart = txtInput.text.length -1) then      <br />
      Me.txtNvs.SelectionStart = txtInput.text.length -1<br />
      Me.txtNvs.SelectionLength = 0<br />
end if

Dim intMouseClickCounter As Integer = 0
Private Sub txtInput_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtInput.GotFocus
    Dim strAutoLabel As String = gblstrUserName.Trim & " - " & Now.ToString("M/d/yy")

    'If the textbox does not contain the auto label, add it
    If Not txtInput.Text.Contains(strAutoLabel) Then
        If txtInput.Text.Trim.Length <> 0 Then txtInput.Text &= vbCrLf & vbCrLf
        txtInput.Text &= strAutoLabel & vbCrLf
        txtInput.SelectionStart = txtInput.Text.Length
        txtInput.ScrollToCaret()

        'Set counter to one so the mouseclick event will scroll to the bottom
        intMouseClickCounter = 0
    Else
        'Set counter to one so the mouse click will not scroll to the bottom
        intMouseClickCounter = 1
    End If

End Sub

Private Sub txtSpecialReport_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles txtInput.MouseClick
    If intMouseClickCounter = 0 _
    AndAlso Not (txtInput.SelectionStart = txtInput.Text.Length) Then
        txtInput.SelectionStart = txtInput.Text.Length
        txtInput.SelectionLength = 0
        txtInput.ScrollToCaret()
    End If

    'Increment counter so if user clicks inside textbox after focus has already been set,
    'the code to scroll to the bottom will not run again
    intMouseClickCounter += 1

End Sub

Private Sub txtInput_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtInput.LostFocus
    intMouseClickCounter = 0 'Reset counter
End Sub

Dim processClass2 As ManagementClass = New ManagementClass("Win32_Process")
processClass2.Scope = scope
Dim inParams2 As ManagementBaseObject = processClass2.GetMethodParameters("Create")
Dim startup As ManagementClass = New ManagementClass("WIN32_ProcessStartup")
startup.Scope = scope
inParams2("CommandLine") = patchcommand
inParams2("ProcessStartupInformation") = startup
Dim outParams As ManagementBaseObject = processClass2.InvokeMethod("Create", inParams2, Nothing)


'Check for an error
If (outParams("ReturnValue").ToString) <> "0" Then
    'Add error to listview
    Dim itms1 As New Windows.Forms.ListViewItem.ListViewSubItem _
        (itmp, "Could not start process. Error code " & (outParams("ReturnValue").ToString))
    itmp.ForeColor = Color.Red
    itmp.SubItems.Add(itms1)
    itmp.Checked = True
    'Skip to next file
    GoTo skipfile
End If

INSERT INTO OrdHeader (Uniqueid,trantype,ledgerno,accountid,userno,entrydate,entrytime,lineno, trandate,periodno,batchno,internref,externref,hedgecode,logged,descriptn,payee,presented,held,previous,ositem,ledger2, account2,taxtype1,taxcode1,taxamount1,taxtype2,taxcode2,taxamount2,taxtype3,taxcode3,taxamount3,salescode,costcode,stage, branch,delivery,quantity1,quantity2,quantity3,amount1,amount2,amount3,amount4,amount5,cncycode,exchange,netvarnce,netgain, netloss,taxrebate,duedate,rateid,staffid,complqty,ppsrate,purchtype,isjobquote,rpsgross,recordno,temppres,changed,discperc, taxperiod,zcostproc,zpostatus) Values(5,49,2,'CNBPZF@CQU',1, CTOD('1/26/2009'),58694.616,0,CTOD('12/31/2008'),78, 356550,'PO-JAC01360         ','PO-JAC              ','N','F' ,'Purchase Order                                                                                                                                                                                                                                                 ','                                   ',0,'F','F' ,'F',2,'CNBPZF@CQU',' ',0,0 ,' ',0,-69.96,' ',0 ,0,0,'         0','         0',1 ,CTOD('12/31/2008'),0,0,0 ,-699.56,0,-699.56,0,0 ,0,1,0,0,0 ,0,CTOD('12/30/1899 12:00:00 AM'),'F          ','F          ',0 ,0,0,'F',0,0 ,0,'T',0,0,' ' ,' ')

Uniqueid            5	
trantype            49	
ledgerno            2	
accountid           'CNBPZF@CQU'	
userno              1	
entrydate           CTOD('1/26/2009')	
entrytime           58694.616	
lineno              0	
trandate            CTOD('12/31/2008')	
periodno            78	
batchno             356550	
internref           'PO-JAC01360         '	
externref           'PO-JAC              '
hedgecode           'N'
logged              'F' 
descriptn           'Purchase Order                                                                          
                                                                 
                                                  
                                                    '
payee               '                                   '
presented           0
held                'F'
previous            'F' 
ositem              'F'
ledger2             2
account2            'CNBPZF@CQU'
taxtype1            ' '
taxcode1            0
taxamount1          0
taxtype2            ' '
taxcode2            0
taxamount2          -69.96
taxtype3            ' '
taxcode3            0
taxamount3          0
salescode           0
costcode            '         0'
stage               '         0'
branch              1
delivery            CTOD('12/31/2008')
quantity1           0
quantity2           0
quantity3           0
amount1             -699.56
amount2             0
amount3             -699.56
amount4             0
amount5             0
cncycode            0
exchange            1
netvarnce           0
netgain             0
netloss             0
taxrebate           0
duedate             CTOD('12/30/1899 12:00:00 AM')
rateid              'F          '
staffid             'F          '
complqty            0
ppsrate             0
purchtype           0
isjobquote          'F'
rpsgross            0
recordno            0
temppres            0
changed             'T'
discperc            0
 taxperiod          0
zcostproc           ' ' 
zpostatus           ' '