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,' ' ,' ')