Public Class frmString
  Inherits System.Windows.Forms.Form
  Dim WhichOne As Integer


#Region " Windows Form Designer generated code "

  Public Sub New()
    MyBase.New()

    'This call is required by the Windows Form Designer.
    InitializeComponent()

    'Add any initialization after the InitializeComponent() call

  End Sub

  'Form overrides dispose to clean up the component list.
  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    If disposing Then
      If Not (components Is Nothing) Then
        components.Dispose()
      End If
    End If
    MyBase.Dispose(disposing)
  End Sub

  'Required by the Windows Form Designer
  Private components As System.ComponentModel.IContainer

  'NOTE: The following procedure is required by the Windows Form Designer
  'It can be modified using the Windows Form Designer.  
  'Do not modify it using the code editor.
  Friend WithEvents Label1 As System.Windows.Forms.Label
  Friend WithEvents Label2 As System.Windows.Forms.Label
  Friend WithEvents Label3 As System.Windows.Forms.Label
  Friend WithEvents txtString1 As System.Windows.Forms.TextBox
  Friend WithEvents txtString2 As System.Windows.Forms.TextBox
  Friend WithEvents txtResult As System.Windows.Forms.TextBox
  Friend WithEvents txtLength1 As System.Windows.Forms.TextBox
  Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  Friend WithEvents txtLength2 As System.Windows.Forms.TextBox
  Friend WithEvents rdbSubstring As System.Windows.Forms.RadioButton
  Friend WithEvents rdbCompare As System.Windows.Forms.RadioButton
  Friend WithEvents btnCalc As System.Windows.Forms.Button
  Friend WithEvents btnExit As System.Windows.Forms.Button
  Friend WithEvents rdbTrim As System.Windows.Forms.RadioButton
  Friend WithEvents rdbConcat As System.Windows.Forms.RadioButton
  Friend WithEvents rdbRight As System.Windows.Forms.RadioButton
  Friend WithEvents rdbMid As System.Windows.Forms.RadioButton
  Friend WithEvents rdbLeft As System.Windows.Forms.RadioButton
  Friend WithEvents Label4 As System.Windows.Forms.Label
  Friend WithEvents Label5 As System.Windows.Forms.Label
  Friend WithEvents rdbCopy As System.Windows.Forms.RadioButton
  Friend WithEvents rdbChars As System.Windows.Forms.RadioButton
  Friend WithEvents rdbIndexOf As System.Windows.Forms.RadioButton
  Friend WithEvents rdbToLower As System.Windows.Forms.RadioButton
  Friend WithEvents rdbToUpper As System.Windows.Forms.RadioButton
  Friend WithEvents rdbUCase As System.Windows.Forms.RadioButton
  Friend WithEvents rdbLCase As System.Windows.Forms.RadioButton
  Friend WithEvents rdbLastIndex As System.Windows.Forms.RadioButton
  Friend WithEvents rdbInstr As System.Windows.Forms.RadioButton
  Friend WithEvents rdbInsert As System.Windows.Forms.RadioButton
  Friend WithEvents rdbReplace As System.Windows.Forms.RadioButton
  Friend WithEvents rdbRTrim As System.Windows.Forms.RadioButton
  Friend WithEvents rdbLTrim As System.Windows.Forms.RadioButton
  Friend WithEvents rdbPadLeft As System.Windows.Forms.RadioButton
  Friend WithEvents rdbPadRight As System.Windows.Forms.RadioButton
  Friend WithEvents rdbTrimEnd As System.Windows.Forms.RadioButton
  Friend WithEvents rdbTrimStart As System.Windows.Forms.RadioButton
  Friend WithEvents lblArg1 As System.Windows.Forms.Label
  Friend WithEvents txtArg1 As System.Windows.Forms.TextBox
  Friend WithEvents txtArg2 As System.Windows.Forms.TextBox
  Friend WithEvents lblArg2 As System.Windows.Forms.Label
  Friend WithEvents rdbClassTrim As System.Windows.Forms.RadioButton
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    Me.Label1 = New System.Windows.Forms.Label()
    Me.Label2 = New System.Windows.Forms.Label()
    Me.Label3 = New System.Windows.Forms.Label()
    Me.txtString1 = New System.Windows.Forms.TextBox()
    Me.txtString2 = New System.Windows.Forms.TextBox()
    Me.txtResult = New System.Windows.Forms.TextBox()
    Me.txtLength1 = New System.Windows.Forms.TextBox()
    Me.txtLength2 = New System.Windows.Forms.TextBox()
    Me.GroupBox1 = New System.Windows.Forms.GroupBox()
    Me.rdbClassTrim = New System.Windows.Forms.RadioButton()
    Me.rdbTrimStart = New System.Windows.Forms.RadioButton()
    Me.rdbTrimEnd = New System.Windows.Forms.RadioButton()
    Me.rdbPadRight = New System.Windows.Forms.RadioButton()
    Me.rdbPadLeft = New System.Windows.Forms.RadioButton()
    Me.rdbLTrim = New System.Windows.Forms.RadioButton()
    Me.rdbRTrim = New System.Windows.Forms.RadioButton()
    Me.rdbReplace = New System.Windows.Forms.RadioButton()
    Me.rdbInsert = New System.Windows.Forms.RadioButton()
    Me.rdbInstr = New System.Windows.Forms.RadioButton()
    Me.rdbLastIndex = New System.Windows.Forms.RadioButton()
    Me.rdbLCase = New System.Windows.Forms.RadioButton()
    Me.rdbUCase = New System.Windows.Forms.RadioButton()
    Me.rdbToUpper = New System.Windows.Forms.RadioButton()
    Me.rdbToLower = New System.Windows.Forms.RadioButton()
    Me.rdbIndexOf = New System.Windows.Forms.RadioButton()
    Me.rdbChars = New System.Windows.Forms.RadioButton()
    Me.rdbCopy = New System.Windows.Forms.RadioButton()
    Me.Label5 = New System.Windows.Forms.Label()
    Me.Label4 = New System.Windows.Forms.Label()
    Me.rdbTrim = New System.Windows.Forms.RadioButton()
    Me.rdbConcat = New System.Windows.Forms.RadioButton()
    Me.rdbRight = New System.Windows.Forms.RadioButton()
    Me.rdbMid = New System.Windows.Forms.RadioButton()
    Me.rdbLeft = New System.Windows.Forms.RadioButton()
    Me.rdbCompare = New System.Windows.Forms.RadioButton()
    Me.rdbSubstring = New System.Windows.Forms.RadioButton()
    Me.btnCalc = New System.Windows.Forms.Button()
    Me.btnExit = New System.Windows.Forms.Button()
    Me.lblArg1 = New System.Windows.Forms.Label()
    Me.txtArg1 = New System.Windows.Forms.TextBox()
    Me.txtArg2 = New System.Windows.Forms.TextBox()
    Me.lblArg2 = New System.Windows.Forms.Label()
    Me.GroupBox1.SuspendLayout()
    Me.SuspendLayout()
    '
    'Label1
    '
    Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
    Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Label1.Location = New System.Drawing.Point(8, 8)
    Me.Label1.Name = "Label1"
    Me.Label1.Size = New System.Drawing.Size(88, 20)
    Me.Label1.TabIndex = 0
    Me.Label1.Text = "String #1:"
    Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
    '
    'Label2
    '
    Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
    Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Label2.Location = New System.Drawing.Point(8, 28)
    Me.Label2.Name = "Label2"
    Me.Label2.Size = New System.Drawing.Size(88, 20)
    Me.Label2.TabIndex = 1
    Me.Label2.Text = "String #2:"
    Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
    '
    'Label3
    '
    Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
    Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Label3.Location = New System.Drawing.Point(8, 312)
    Me.Label3.Name = "Label3"
    Me.Label3.Size = New System.Drawing.Size(88, 20)
    Me.Label3.TabIndex = 2
    Me.Label3.Text = "String Result:"
    Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
    '
    'txtString1
    '
    Me.txtString1.Location = New System.Drawing.Point(96, 8)
    Me.txtString1.Name = "txtString1"
    Me.txtString1.Size = New System.Drawing.Size(272, 20)
    Me.txtString1.TabIndex = 1
    Me.txtString1.Text = ""
    '
    'txtString2
    '
    Me.txtString2.Location = New System.Drawing.Point(96, 28)
    Me.txtString2.Name = "txtString2"
    Me.txtString2.Size = New System.Drawing.Size(272, 20)
    Me.txtString2.TabIndex = 2
    Me.txtString2.Text = ""
    '
    'txtResult
    '
    Me.txtResult.Location = New System.Drawing.Point(96, 312)
    Me.txtResult.Name = "txtResult"
    Me.txtResult.Size = New System.Drawing.Size(312, 20)
    Me.txtResult.TabIndex = 5
    Me.txtResult.Text = ""
    '
    'txtLength1
    '
    Me.txtLength1.Location = New System.Drawing.Point(384, 8)
    Me.txtLength1.Name = "txtLength1"
    Me.txtLength1.Size = New System.Drawing.Size(28, 20)
    Me.txtLength1.TabIndex = 6
    Me.txtLength1.Text = ""
    '
    'txtLength2
    '
    Me.txtLength2.Location = New System.Drawing.Point(384, 28)
    Me.txtLength2.Name = "txtLength2"
    Me.txtLength2.Size = New System.Drawing.Size(28, 20)
    Me.txtLength2.TabIndex = 7
    Me.txtLength2.Text = ""
    '
    'GroupBox1
    '
    Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.rdbClassTrim, Me.rdbTrimStart, Me.rdbTrimEnd, Me.rdbPadRight, Me.rdbPadLeft, Me.rdbLTrim, Me.rdbRTrim, Me.rdbReplace, Me.rdbInsert, Me.rdbInstr, Me.rdbLastIndex, Me.rdbLCase, Me.rdbUCase, Me.rdbToUpper, Me.rdbToLower, Me.rdbIndexOf, Me.rdbChars, Me.rdbCopy, Me.Label5, Me.Label4, Me.rdbTrim, Me.rdbConcat, Me.rdbRight, Me.rdbMid, Me.rdbLeft, Me.rdbCompare, Me.rdbSubstring})
    Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.GroupBox1.Location = New System.Drawing.Point(8, 56)
    Me.GroupBox1.Name = "GroupBox1"
    Me.GroupBox1.Size = New System.Drawing.Size(400, 240)
    Me.GroupBox1.TabIndex = 8
    Me.GroupBox1.TabStop = False
    Me.GroupBox1.Text = "String Operations:"
    '
    'rdbClassTrim
    '
    Me.rdbClassTrim.Location = New System.Drawing.Point(16, 216)
    Me.rdbClassTrim.Name = "rdbClassTrim"
    Me.rdbClassTrim.Size = New System.Drawing.Size(72, 16)
    Me.rdbClassTrim.TabIndex = 27
    Me.rdbClassTrim.Text = "Trim"
    '
    'rdbTrimStart
    '
    Me.rdbTrimStart.Location = New System.Drawing.Point(216, 216)
    Me.rdbTrimStart.Name = "rdbTrimStart"
    Me.rdbTrimStart.Size = New System.Drawing.Size(72, 16)
    Me.rdbTrimStart.TabIndex = 29
    Me.rdbTrimStart.Text = "TrimStart"
    '
    'rdbTrimEnd
    '
    Me.rdbTrimEnd.Location = New System.Drawing.Point(120, 216)
    Me.rdbTrimEnd.Name = "rdbTrimEnd"
    Me.rdbTrimEnd.Size = New System.Drawing.Size(72, 16)
    Me.rdbTrimEnd.TabIndex = 28
    Me.rdbTrimEnd.Text = "TrimEnd"
    '
    'rdbPadRight
    '
    Me.rdbPadRight.Location = New System.Drawing.Point(304, 168)
    Me.rdbPadRight.Name = "rdbPadRight"
    Me.rdbPadRight.Size = New System.Drawing.Size(72, 16)
    Me.rdbPadRight.TabIndex = 20
    Me.rdbPadRight.Text = "PadRight"
    '
    'rdbPadLeft
    '
    Me.rdbPadLeft.Location = New System.Drawing.Point(216, 168)
    Me.rdbPadLeft.Name = "rdbPadLeft"
    Me.rdbPadLeft.Size = New System.Drawing.Size(72, 16)
    Me.rdbPadLeft.TabIndex = 19
    Me.rdbPadLeft.Text = "PadLeft"
    '
    'rdbLTrim
    '
    Me.rdbLTrim.Location = New System.Drawing.Point(16, 72)
    Me.rdbLTrim.Name = "rdbLTrim"
    Me.rdbLTrim.Size = New System.Drawing.Size(72, 16)
    Me.rdbLTrim.TabIndex = 7
    Me.rdbLTrim.Text = "LTrim"
    '
    'rdbRTrim
    '
    Me.rdbRTrim.Location = New System.Drawing.Point(304, 72)
    Me.rdbRTrim.Name = "rdbRTrim"
    Me.rdbRTrim.Size = New System.Drawing.Size(72, 16)
    Me.rdbRTrim.TabIndex = 10
    Me.rdbRTrim.Text = "RTrim"
    '
    'rdbReplace
    '
    Me.rdbReplace.Location = New System.Drawing.Point(16, 192)
    Me.rdbReplace.Name = "rdbReplace"
    Me.rdbReplace.Size = New System.Drawing.Size(72, 16)
    Me.rdbReplace.TabIndex = 21
    Me.rdbReplace.Text = "Replace"
    '
    'rdbInsert
    '
    Me.rdbInsert.Location = New System.Drawing.Point(16, 168)
    Me.rdbInsert.Name = "rdbInsert"
    Me.rdbInsert.Size = New System.Drawing.Size(72, 16)
    Me.rdbInsert.TabIndex = 17
    Me.rdbInsert.Text = "Insert"
    '
    'rdbInstr
    '
    Me.rdbInstr.Location = New System.Drawing.Point(120, 48)
    Me.rdbInstr.Name = "rdbInstr"
    Me.rdbInstr.Size = New System.Drawing.Size(72, 16)
    Me.rdbInstr.TabIndex = 4
    Me.rdbInstr.Text = "InStr"
    '
    'rdbLastIndex
    '
    Me.rdbLastIndex.Location = New System.Drawing.Point(120, 168)
    Me.rdbLastIndex.Name = "rdbLastIndex"
    Me.rdbLastIndex.Size = New System.Drawing.Size(88, 16)
    Me.rdbLastIndex.TabIndex = 18
    Me.rdbLastIndex.Text = "LastIndexOf"
    '
    'rdbLCase
    '
    Me.rdbLCase.Location = New System.Drawing.Point(216, 48)
    Me.rdbLCase.Name = "rdbLCase"
    Me.rdbLCase.Size = New System.Drawing.Size(72, 16)
    Me.rdbLCase.TabIndex = 5
    Me.rdbLCase.Text = "LCase"
    '
    'rdbUCase
    '
    Me.rdbUCase.Location = New System.Drawing.Point(120, 96)
    Me.rdbUCase.Name = "rdbUCase"
    Me.rdbUCase.Size = New System.Drawing.Size(64, 16)
    Me.rdbUCase.TabIndex = 12
    Me.rdbUCase.Text = "UCase"
    '
    'rdbToUpper
    '
    Me.rdbToUpper.Location = New System.Drawing.Point(304, 192)
    Me.rdbToUpper.Name = "rdbToUpper"
    Me.rdbToUpper.Size = New System.Drawing.Size(72, 16)
    Me.rdbToUpper.TabIndex = 24
    Me.rdbToUpper.Text = "ToUpper"
    '
    'rdbToLower
    '
    Me.rdbToLower.Location = New System.Drawing.Point(216, 192)
    Me.rdbToLower.Name = "rdbToLower"
    Me.rdbToLower.Size = New System.Drawing.Size(72, 16)
    Me.rdbToLower.TabIndex = 23
    Me.rdbToLower.Text = "ToLower"
    '
    'rdbIndexOf
    '
    Me.rdbIndexOf.Location = New System.Drawing.Point(304, 144)
    Me.rdbIndexOf.Name = "rdbIndexOf"
    Me.rdbIndexOf.Size = New System.Drawing.Size(72, 16)
    Me.rdbIndexOf.TabIndex = 16
    Me.rdbIndexOf.Text = "IndexOf"
    '
    'rdbChars
    '
    Me.rdbChars.Location = New System.Drawing.Point(16, 144)
    Me.rdbChars.Name = "rdbChars"
    Me.rdbChars.Size = New System.Drawing.Size(72, 16)
    Me.rdbChars.TabIndex = 13
    Me.rdbChars.Text = "Chars"
    '
    'rdbCopy
    '
    Me.rdbCopy.Location = New System.Drawing.Point(216, 144)
    Me.rdbCopy.Name = "rdbCopy"
    Me.rdbCopy.Size = New System.Drawing.Size(72, 16)
    Me.rdbCopy.TabIndex = 15
    Me.rdbCopy.Text = "Copy"
    '
    'Label5
    '
    Me.Label5.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
    Me.Label5.Location = New System.Drawing.Point(16, 120)
    Me.Label5.Name = "Label5"
    Me.Label5.Size = New System.Drawing.Size(376, 16)
    Me.Label5.TabIndex = 18
    Me.Label5.Text = "String Class  Operations"
    Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    '
    'Label4
    '
    Me.Label4.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
    Me.Label4.Location = New System.Drawing.Point(16, 24)
    Me.Label4.Name = "Label4"
    Me.Label4.Size = New System.Drawing.Size(376, 16)
    Me.Label4.TabIndex = 17
    Me.Label4.Text = "String Function  Operations"
    Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    '
    'rdbTrim
    '
    Me.rdbTrim.Location = New System.Drawing.Point(16, 96)
    Me.rdbTrim.Name = "rdbTrim"
    Me.rdbTrim.Size = New System.Drawing.Size(72, 16)
    Me.rdbTrim.TabIndex = 11
    Me.rdbTrim.Text = "Trim"
    '
    'rdbConcat
    '
    Me.rdbConcat.Location = New System.Drawing.Point(16, 48)
    Me.rdbConcat.Name = "rdbConcat"
    Me.rdbConcat.Size = New System.Drawing.Size(96, 16)
    Me.rdbConcat.TabIndex = 3
    Me.rdbConcat.Text = "Concatenate"
    '
    'rdbRight
    '
    Me.rdbRight.Location = New System.Drawing.Point(216, 72)
    Me.rdbRight.Name = "rdbRight"
    Me.rdbRight.Size = New System.Drawing.Size(72, 16)
    Me.rdbRight.TabIndex = 9
    Me.rdbRight.Text = "Right()"
    '
    'rdbMid
    '
    Me.rdbMid.Location = New System.Drawing.Point(120, 72)
    Me.rdbMid.Name = "rdbMid"
    Me.rdbMid.Size = New System.Drawing.Size(72, 16)
    Me.rdbMid.TabIndex = 8
    Me.rdbMid.Text = "Mid()"
    '
    'rdbLeft
    '
    Me.rdbLeft.Location = New System.Drawing.Point(304, 48)
    Me.rdbLeft.Name = "rdbLeft"
    Me.rdbLeft.Size = New System.Drawing.Size(72, 16)
    Me.rdbLeft.TabIndex = 6
    Me.rdbLeft.Text = "Left()"
    '
    'rdbCompare
    '
    Me.rdbCompare.Location = New System.Drawing.Point(120, 144)
    Me.rdbCompare.Name = "rdbCompare"
    Me.rdbCompare.Size = New System.Drawing.Size(72, 16)
    Me.rdbCompare.TabIndex = 14
    Me.rdbCompare.Text = "Compare"
    '
    'rdbSubstring
    '
    Me.rdbSubstring.Location = New System.Drawing.Point(120, 192)
    Me.rdbSubstring.Name = "rdbSubstring"
    Me.rdbSubstring.Size = New System.Drawing.Size(72, 16)
    Me.rdbSubstring.TabIndex = 22
    Me.rdbSubstring.Text = "Substring"
    '
    'btnCalc
    '
    Me.btnCalc.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.btnCalc.Location = New System.Drawing.Point(424, 8)
    Me.btnCalc.Name = "btnCalc"
    Me.btnCalc.Size = New System.Drawing.Size(112, 24)
    Me.btnCalc.TabIndex = 30
    Me.btnCalc.Text = "&Calculate"
    '
    'btnExit
    '
    Me.btnExit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.btnExit.Location = New System.Drawing.Point(424, 312)
    Me.btnExit.Name = "btnExit"
    Me.btnExit.Size = New System.Drawing.Size(112, 24)
    Me.btnExit.TabIndex = 28
    Me.btnExit.Text = "E&xit"
    '
    'lblArg1
    '
    Me.lblArg1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
    Me.lblArg1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.lblArg1.Location = New System.Drawing.Point(416, 64)
    Me.lblArg1.Name = "lblArg1"
    Me.lblArg1.Size = New System.Drawing.Size(120, 20)
    Me.lblArg1.TabIndex = 29
    Me.lblArg1.Text = "Label #1:"
    Me.lblArg1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
    Me.lblArg1.Visible = False
    '
    'txtArg1
    '
    Me.txtArg1.Location = New System.Drawing.Point(416, 84)
    Me.txtArg1.Name = "txtArg1"
    Me.txtArg1.Size = New System.Drawing.Size(120, 20)
    Me.txtArg1.TabIndex = 30
    Me.txtArg1.Text = ""
    Me.txtArg1.Visible = False
    '
    'txtArg2
    '
    Me.txtArg2.Location = New System.Drawing.Point(416, 132)
    Me.txtArg2.Name = "txtArg2"
    Me.txtArg2.Size = New System.Drawing.Size(120, 20)
    Me.txtArg2.TabIndex = 32
    Me.txtArg2.Text = ""
    Me.txtArg2.Visible = False
    '
    'lblArg2
    '
    Me.lblArg2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
    Me.lblArg2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.lblArg2.Location = New System.Drawing.Point(416, 112)
    Me.lblArg2.Name = "lblArg2"
    Me.lblArg2.Size = New System.Drawing.Size(120, 20)
    Me.lblArg2.TabIndex = 31
    Me.lblArg2.Text = "Label #2:"
    Me.lblArg2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
    Me.lblArg2.Visible = False
    '
    'frmString
    '
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(544, 349)
    Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtArg2, Me.lblArg2, Me.txtArg1, Me.lblArg1, Me.btnExit, Me.btnCalc, Me.GroupBox1, Me.txtLength2, Me.txtLength1, Me.txtResult, Me.txtString2, Me.txtString1, Me.Label3, Me.Label2, Me.Label1})
    Me.Name = "frmString"
    Me.Text = "String Project"
    Me.GroupBox1.ResumeLayout(False)
    Me.ResumeLayout(False)

  End Sub

#End Region

 
  Private Sub txtString1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtString1.Validated
    txtLength1.Text = CStr(Len(txtString1.Text))
  End Sub

  Private Sub txtString2_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtString2.Validated
    txtLength2.Text = CStr(Len(txtString2.Text))
  End Sub

  Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
    Me.Dispose()
  End Sub


  Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

  End Sub




  Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
    Dim length As Integer, start As Integer, MyEnd As Integer
    Dim MyString As String, YourString As String

    MyString = txtString1.Text
    YourString = txtString2.Text

    Select Case WhichOne
      Case 1    ' Concatenation
        txtResult.Text = txtString1.Text & txtString2.Text
      Case 2    ' Instr
        start = CInt(txtArg1.Text)
        txtResult.Text = CStr(InStr(start, txtString1.Text, txtString2.Text))
        lblArg1.Visible = False
        txtArg1.Visible = False
      Case 3    ' LCase
        txtResult.Text = LCase(txtString1.Text)
      Case 4    ' Left
        length = CInt(txtArg1.Text)
        txtResult.Text = Microsoft.VisualBasic.Left(txtString1.Text, length)
        lblArg1.Text = "How many chars"
        lblArg1.Visible = False
        txtArg1.Visible = False

      Case 5    ' LTrim
        txtResult.Text = "-->" & LTrim(txtString1.Text) & "<--"
      Case 6    ' Mid
        start = CInt(txtArg1.Text)
        If txtArg2.Text <> "" Then
          length = CInt(txtArg2.Text)
          txtResult.Text = Microsoft.VisualBasic.Mid(txtString1.Text, start, length)
        Else
          txtResult.Text = Microsoft.VisualBasic.Mid(txtString1.Text, start)
        End If
        lblArg1.Visible = False
        txtArg1.Visible = False
        lblArg2.Visible = False
        txtArg2.Visible = False

      Case 7    ' Right
        length = CInt(txtArg1.Text)
        txtResult.Text = Microsoft.VisualBasic.Right(txtString1.Text, length)
        lblArg1.Visible = False
        txtArg1.Visible = False
      Case 8    ' RTrim
        txtResult.Text = "-->" & RTrim(txtString1.Text) & "<--"
      Case 9    ' Trim
        txtResult.Text = "-->" & Trim(txtString1.Text) & "<--"
      Case 10   ' UCase
        txtResult.Text = UCase(txtString1.Text)
      Case 11    ' Chars
        start = CInt(txtArg1.Text)
        txtResult.Text = CStr(MyString.Chars(start))
        lblArg1.Visible = False
        txtArg1.Visible = False
      Case 12    ' Compare
        txtResult.Text = CStr(String.Compare(MyString, YourString))
      Case 13    ' Copy
        txtResult.Text = String.Copy(MyString)
      Case 14    ' IndexOf
        txtResult.Text = CStr(MyString.IndexOf(txtArg1.Text))
        lblArg1.Visible = False
        txtArg1.Visible = False
      Case 15    ' Insert
        start = CInt(txtArg1.Text)
        txtResult.Text = MyString.Insert(start, txtString2.Text)
        lblArg1.Visible = False
        txtArg1.Visible = False
      Case 16    ' LastIndexOf
        txtResult.Text = CStr(MyString.LastIndexOf(txtArg1.Text))
        lblArg1.Visible = False
        txtArg1.Visible = False

      Case 17    ' PadLeft
        If txtArg2.Text = "" Then
          txtResult.Text = MyString.PadLeft(CInt(txtArg1.Text))
        Else
          txtResult.Text = MyString.PadLeft(CInt(txtArg1.Text), txtArg2.Text)
        End If
        lblArg1.Visible = False
        txtArg1.Visible = False
        lblArg2.Visible = False
        txtArg2.Visible = False

      Case 18    ' PadRight
        If txtArg2.Text = "" Then
          txtResult.Text = MyString.PadRight(CInt(txtArg1.Text)) & "<--"
        Else
          txtResult.Text = MyString.PadRight(CInt(txtArg1.Text), txtArg2.Text)
        End If
        lblArg1.Visible = False
        txtArg1.Visible = False
        lblArg2.Visible = False
        txtArg2.Visible = False

      Case 19    ' Replace
        txtResult.Text = MyString.Replace(txtArg1.Text, txtArg2.Text)
        lblArg1.Visible = False
        txtArg1.Visible = False
        lblArg2.Visible = False
        txtArg2.Visible = False
      Case 20    ' Substring
        start = CInt(txtArg1.Text)
        If txtArg2.Text = "" Then
          txtResult.Text = MyString.Substring(start)
        Else
          length = CInt(txtArg2.Text)
          txtResult.Text = MyString.Substring(start, length)
        End If
        lblArg1.Visible = False
        txtArg1.Visible = False
        lblArg2.Visible = False
        txtArg2.Visible = False
      Case 21    ' ToLower
        txtResult.Text = MyString.ToLower

      Case 22    ' ToUpper
        txtResult.Text = MyString.ToUpper
      Case 23    ' TrimEnd
        txtResult.Text = MyString.TrimEnd(txtArg1.Text)
        lblArg1.Visible = False
        txtArg1.Visible = False

      Case 24    ' TrimStart
        txtResult.Text = MyString.TrimStart(txtArg1.Text)
        lblArg1.Visible = False
        txtArg1.Visible = False
      Case 25   ' Trim
        txtResult.Text = MyString.Trim(txtArg1.Text)
        lblArg1.Visible = False
        txtArg1.Visible = False

    End Select
  End Sub


 

  Private Sub rdbLeft_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbLeft.Click
    WhichOne = 4
    lblArg1.Text = "How many chars"
    lblArg1.Visible = True
    txtArg1.Visible = True

  End Sub

  Private Sub rdbConcat_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbConcat.Click
    WhichOne = 1
  End Sub

  Private Sub rdbInstr_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbInstr.Click
    WhichOne = 2
    lblArg1.Text = "Starting position"
    lblArg1.Visible = True
    txtArg1.Visible = True
    txtArg1.Text = "1"
  End Sub

  Private Sub rdbLCase_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbLCase.Click
    WhichOne = 3
  End Sub

  Private Sub rdbLTrim_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbLTrim.Click
    WhichOne = 5
  End Sub

  Private Sub rdbMid_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbMid.Click
    WhichOne = 6
    lblArg1.Text = "Start position"
    lblArg1.Visible = True
    txtArg1.Visible = True
    lblArg2.Text = "Length (optional)"
    lblArg2.Visible = True
    txtArg2.Visible = True
    txtArg2.Text = ""

  End Sub

  Private Sub rdbRight_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbRight.Click
    WhichOne = 7
    lblArg1.Text = "How many chars"
    lblArg1.Visible = True
    txtArg1.Visible = True
  End Sub

  Private Sub rdbRTrim_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbRTrim.Click
    WhichOne = 8
  End Sub

  Private Sub rdbTrim_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbTrim.Click
    WhichOne = 9
  End Sub

  Private Sub rdbUCase_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbUCase.Click
    WhichOne = 10
  End Sub

  Private Sub rdbChars_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbChars.Click
    WhichOne = 11
    lblArg1.Text = "Which position"
    lblArg1.Visible = True
    txtArg1.Visible = True
  End Sub

  Private Sub rdbCompare_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbCompare.Click
    WhichOne = 12
  End Sub

  Private Sub rdbCopy_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbCopy.Click
    WhichOne = 13
  End Sub

  Private Sub rdbIndexOf_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbIndexOf.Click
    WhichOne = 14
    lblArg1.Text = "What character"
    lblArg1.Visible = True
    txtArg1.Visible = True
  End Sub

  Private Sub rdbInsert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbInsert.Click
    WhichOne = 15
    lblArg1.Text = "Start position"
    lblArg1.Visible = True
    txtArg1.Visible = True
  End Sub

  Private Sub rdbLastIndex_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbLastIndex.Click
    WhichOne = 16
    lblArg1.Text = "Search for"
    lblArg1.Visible = True
    txtArg1.Visible = True
  End Sub

  Private Sub rdbPadLeft_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbPadLeft.Click
    WhichOne = 17
    lblArg1.Text = "Total width"
    lblArg1.Visible = True
    txtArg1.Visible = True
    lblArg2.Text = "Pad char (optional)"
    lblArg2.Visible = True
    txtArg2.Visible = True
    txtArg2.Text = ""
  End Sub

  Private Sub rdbPadRight_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbPadRight.Click
    WhichOne = 18
    lblArg1.Text = "Total width"
    lblArg1.Visible = True
    txtArg1.Visible = True
    lblArg2.Text = "Pad char (optional)"
    lblArg2.Visible = True
    txtArg2.Visible = True
    txtArg2.Text = ""
  End Sub

  Private Sub rdbReplace_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbReplace.Click
    WhichOne = 19
    lblArg1.Text = "Find"
    lblArg1.Visible = True
    txtArg1.Visible = True
    txtArg1.Text = ""
    lblArg2.Text = "Replace with"
    lblArg2.Visible = True
    txtArg2.Visible = True
    txtArg2.Text = ""
  End Sub

  Private Sub rdbSubstring_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbSubstring.Click
    WhichOne = 20
    lblArg1.Text = "Start"
    lblArg1.Visible = True
    txtArg1.Visible = True
    txtArg1.Text = ""
    lblArg2.Text = "Length"
    lblArg2.Visible = True
    txtArg2.Visible = True
    txtArg2.Text = ""
  End Sub

  Private Sub rdbToLower_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbToLower.Click
    WhichOne = 21
  End Sub

  Private Sub rdbToUpper_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbToUpper.Click
    WhichOne = 22
  End Sub

  Private Sub rdbTrimEnd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbTrimEnd.Click
    WhichOne = 23
    lblArg1.Text = "Char to remove"
    lblArg1.Visible = True
    txtArg1.Visible = True
  End Sub

  Private Sub rdbTrimStart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbTrimStart.CheckedChanged
    WhichOne = 24
    lblArg1.Text = "Char to remove"
    lblArg1.Visible = True
    txtArg1.Visible = True
  End Sub


  Private Sub rdbClassTrim_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbClassTrim.Click
    WhichOne = 25
    lblArg1.Text = "Char to remove"
    lblArg1.Visible = True
    txtArg1.Visible = True

  End Sub
End Class
