Current News Archived News Search News Discussion Forum Old Forum Install Programs More Downloads... Troubleshooting Source Code Format Specs. Misc. Information Non-SF Stuff Links Small banner for links to this site: |
diff --git a/ToolList.frm b/ToolList.frm
--- a/ToolList.frm
+++ b/ToolList.frm
-VERSION 4.00
-Begin VB.Form ToolList
- BorderStyle = 3 'Fixed Dialog
- Caption = "Add/Remove Tools"
- ClientHeight = 2775
- ClientLeft = 1575
- ClientTop = 1815
- ClientWidth = 4065
- Height = 3180
- Icon = "ToolList.frx":0000
- Left = 1515
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 2775
- ScaleWidth = 4065
- ShowInTaskbar = 0 'False
- Top = 1470
- Width = 4185
- Begin VB.CommandButton Command2
- Cancel = -1 'True
- Caption = "&Cancel"
- Height = 375
- Left = 1920
- TabIndex = 3
- Top = 2400
- Width = 1455
- End
- Begin VB.CommandButton cmdOK
- Caption = "O&K"
- Default = -1 'True
- Height = 375
- Left = 240
- TabIndex = 2
- Top = 2400
- Width = 1455
- End
- Begin VB.ListBox tList
- Height = 2370
- IntegralHeight = 0 'False
- Left = 0
- TabIndex = 1
- Top = 0
- Width = 3600
- End
- Begin MSComctlLib.Toolbar Toolbar1
- Height = 450
- Left = 3600
- TabIndex = 0
- Top = 0
- Width = 495
- _ExtentX = 873
- _ExtentY = 794
- ButtonWidth = 820
- ButtonHeight = 794
- AllowCustomize = 0 'False
- Style = 1
- ImageList = "ImageList1"
- DisabledImageList= "ImageList2"
- HotImageList = "ImageList3"
- _Version = 393216
- BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
- NumButtons = 6
- BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "Add"
- ToolTipText = "Add a program to the list."
- ImageIndex = 1
- EndProperty
- BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Enabled = 0 'False
- Key = "Remove"
- ToolTipText = "Remove selected program from the list."
- ImageIndex = 2
- EndProperty
- BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Enabled = 0 'False
- Key = "Edit"
- ToolTipText = "Edit properties for selected program."
- ImageIndex = 3
- EndProperty
- BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Enabled = 0 'False
- Key = "Up"
- ToolTipText = "Move selected program up in the list."
- ImageIndex = 4
- EndProperty
- BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Enabled = 0 'False
- Key = "Down"
- ToolTipText = "Move selected program down in the list."
- ImageIndex = 5
- EndProperty
- EndProperty
- End
- Begin MSComctlLib.ImageList ImageList3
- Left = 3360
- Top = 2400
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 24
- ImageHeight = 24
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 5
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "ToolList.frx":000C
- Key = ""
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "ToolList.frx":00D8
- Key = ""
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "ToolList.frx":0188
- Key = ""
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "ToolList.frx":0238
- Key = ""
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "ToolList.frx":0310
- Key = ""
- EndProperty
- EndProperty
- End
- Begin MSComctlLib.ImageList ImageList2
- Left = 1560
- Top = 2400
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 24
- ImageHeight = 24
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 5
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "ToolList.frx":03E8
- Key = ""
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "ToolList.frx":04C4
- Key = ""
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "ToolList.frx":0574
- Key = ""
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "ToolList.frx":0654
- Key = ""
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "ToolList.frx":0734
- Key = ""
- EndProperty
- EndProperty
- End
- Begin MSComctlLib.ImageList ImageList1
- Left = 0
- Top = 2280
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 24
- ImageHeight = 24
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 5
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "ToolList.frx":0810
- Key = ""
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "ToolList.frx":08EC
- Key = ""
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "ToolList.frx":09A8
- Key = ""
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "ToolList.frx":0A6C
- Key = ""
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "ToolList.frx":0B4C
- Key = ""
- EndProperty
- EndProperty
- End
-End
-Attribute VB_Name = "ToolList"
-Attribute VB_Creatable = False
-Attribute VB_Exposed = False
-Option Explicit
-
-Dim tCommands() As String
-Private Sub cmdOK_Click()
-Dim tNum As Long
-DelKey AppKey + "Tools\"
-NewKey AppKey + "Tools\"
-For tNum = 0 To tList.ListCount - 1
- SetReg AppKey + "Tools\Name" + CStr(tNum), tList.List(tNum)
- SetReg AppKey + "Tools\Command" + CStr(tNum), tCommands(tNum + 1)
-Next tNum
-Unload Me
-End Sub
-Private Sub Command2_Click()
-Unload Me
-End Sub
-Private Sub Form_Load()
-Dim tNum As Long, ToolName As String, ToolCommand
-Left = MpqEx.Left + 330
-If Left < 0 Then Left = 0
-If Left + Width > Screen.Width Then Left = Screen.Width - Width
-Top = MpqEx.Top + 315
-If Top < 0 Then Top = 0
-If Top + Height > Screen.Height Then Top = Screen.Height - Height
-ReDim tCommands(0) As String
-Do
- ToolName = GetReg(AppKey + "Tools\Name" + CStr(tNum))
- ToolCommand = GetReg(AppKey + "Tools\Command" + CStr(tNum))
- If ToolName = "" Then ToolName = ToolCommand
- If ToolName <> "" Then
- ReDim Preserve tCommands(UBound(tCommands) + 1) As String
- tCommands(UBound(tCommands)) = ToolCommand
- tList.AddItem ToolName
- End If
- tNum = tNum + 1
-Loop Until ToolName = ""
-End Sub
-Private Sub tList_Click()
-If tList.ListIndex > -1 Then
- Toolbar1.Buttons.Item("Remove").Enabled = True
- Toolbar1.Buttons.Item("Edit").Enabled = True
-Else
- Toolbar1.Buttons.Item("Remove").Enabled = False
- Toolbar1.Buttons.Item("Edit").Enabled = False
-End If
-If tList.ListIndex > 0 Then
- Toolbar1.Buttons.Item("Up").Enabled = True
-Else
- Toolbar1.Buttons.Item("Up").Enabled = False
-End If
-If tList.ListIndex < tList.ListCount - 1 And tList.ListIndex > -1 Then
- Toolbar1.Buttons.Item("Down").Enabled = True
-Else
- Toolbar1.Buttons.Item("Down").Enabled = False
-End If
-End Sub
-Private Sub Toolbar1_ButtonClick(ByVal Button As Button)
-Dim TempText As String, tNum As Long
-Select Case Button.Key
-Case "Add"
- TempText = EditTItem.EditItem("Add Command", "", "")
- If TempText <> vbCrLf Then
- tList.AddItem Left(TempText, InStr(TempText, vbCrLf) - 1)
- ReDim Preserve tCommands(UBound(tCommands) + 1) As String
- tCommands(UBound(tCommands)) = Mid(TempText, InStr(TempText, vbCrLf) + 2)
- tList.ListIndex = tList.ListCount - 1
- End If
-Case "Remove"
- For tNum = tList.ListIndex + 1 To tList.ListCount - 1
- tCommands(tNum) = tCommands(tNum + 1)
- Next tNum
- ReDim Preserve tCommands(UBound(tCommands) - 1) As String
- tList.RemoveItem tList.ListIndex
- tList_Click
-Case "Edit"
- TempText = EditTItem.EditItem("Edit Command", tList.List(tList.ListIndex), tCommands(tList.ListIndex + 1))
- tList.List(tList.ListIndex) = Left(TempText, InStr(TempText, vbCrLf) - 1)
- tCommands(tList.ListIndex + 1) = Mid(TempText, InStr(TempText, vbCrLf) + 2)
-Case "Up"
- TempText = tList.List(tList.ListIndex)
- tList.List(tList.ListIndex) = tList.List(tList.ListIndex - 1)
- tList.List(tList.ListIndex - 1) = TempText
- TempText = tCommands(tList.ListIndex + 1)
- tCommands(tList.ListIndex + 1) = tCommands(tList.ListIndex)
- tCommands(tList.ListIndex) = TempText
- tList.ListIndex = tList.ListIndex - 1
-Case "Down"
- TempText = tList.List(tList.ListIndex)
- tList.List(tList.ListIndex) = tList.List(tList.ListIndex + 1)
- tList.List(tList.ListIndex + 1) = TempText
- TempText = tCommands(tList.ListIndex + 1)
- tCommands(tList.ListIndex + 1) = tCommands(tList.ListIndex + 2)
- tCommands(tList.ListIndex + 2) = TempText
- tList.ListIndex = tList.ListIndex + 1
-End Select
-End Sub
+VERSION 4.00\r
+Begin VB.Form ToolList \r
+ BorderStyle = 3 'Fixed Dialog\r
+ Caption = "Add/Remove Tools"\r
+ ClientHeight = 2775\r
+ ClientLeft = 1575\r
+ ClientTop = 1815\r
+ ClientWidth = 4065\r
+ Height = 3180\r
+ Icon = "ToolList.frx":0000\r
+ Left = 1515\r
+ LinkTopic = "Form1"\r
+ MaxButton = 0 'False\r
+ MinButton = 0 'False\r
+ ScaleHeight = 2775\r
+ ScaleWidth = 4065\r
+ ShowInTaskbar = 0 'False\r
+ Top = 1470\r
+ Width = 4185\r
+ Begin VB.CommandButton Command2 \r
+ Cancel = -1 'True\r
+ Caption = "&Cancel"\r
+ Height = 375\r
+ Left = 1920\r
+ TabIndex = 3\r
+ Top = 2400\r
+ Width = 1455\r
+ End\r
+ Begin VB.CommandButton cmdOK \r
+ Caption = "O&K"\r
+ Default = -1 'True\r
+ Height = 375\r
+ Left = 240\r
+ TabIndex = 2\r
+ Top = 2400\r
+ Width = 1455\r
+ End\r
+ Begin VB.ListBox tList \r
+ Height = 2370\r
+ IntegralHeight = 0 'False\r
+ Left = 0\r
+ TabIndex = 1\r
+ Top = 0\r
+ Width = 3600\r
+ End\r
+ Begin MSComctlLib.Toolbar Toolbar1 \r
+ Height = 450\r
+ Left = 3600\r
+ TabIndex = 0\r
+ Top = 0\r
+ Width = 495\r
+ _ExtentX = 873\r
+ _ExtentY = 794\r
+ ButtonWidth = 820\r
+ ButtonHeight = 794\r
+ AllowCustomize = 0 'False\r
+ Style = 1\r
+ ImageList = "ImageList1"\r
+ DisabledImageList= "ImageList2"\r
+ HotImageList = "ImageList3"\r
+ _Version = 393216\r
+ BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} \r
+ NumButtons = 6\r
+ BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} \r
+ Key = "Add"\r
+ ToolTipText = "Add a program to the list."\r
+ ImageIndex = 1\r
+ EndProperty\r
+ BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} \r
+ Enabled = 0 'False\r
+ Key = "Remove"\r
+ ToolTipText = "Remove selected program from the list."\r
+ ImageIndex = 2\r
+ EndProperty\r
+ BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} \r
+ Enabled = 0 'False\r
+ Key = "Edit"\r
+ ToolTipText = "Edit properties for selected program."\r
+ ImageIndex = 3\r
+ EndProperty\r
+ BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} \r
+ Style = 3\r
+ EndProperty\r
+ BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} \r
+ Enabled = 0 'False\r
+ Key = "Up"\r
+ ToolTipText = "Move selected program up in the list."\r
+ ImageIndex = 4\r
+ EndProperty\r
+ BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} \r
+ Enabled = 0 'False\r
+ Key = "Down"\r
+ ToolTipText = "Move selected program down in the list."\r
+ ImageIndex = 5\r
+ EndProperty\r
+ EndProperty\r
+ End\r
+ Begin MSComctlLib.ImageList ImageList3 \r
+ Left = 3360\r
+ Top = 2400\r
+ _ExtentX = 1005\r
+ _ExtentY = 1005\r
+ BackColor = -2147483643\r
+ ImageWidth = 24\r
+ ImageHeight = 24\r
+ MaskColor = 12632256\r
+ _Version = 393216\r
+ BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} \r
+ NumListImages = 5\r
+ BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} \r
+ Picture = "ToolList.frx":000C\r
+ Key = ""\r
+ EndProperty\r
+ BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} \r
+ Picture = "ToolList.frx":00D8\r
+ Key = ""\r
+ EndProperty\r
+ BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} \r
+ Picture = "ToolList.frx":0188\r
+ Key = ""\r
+ EndProperty\r
+ BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} \r
+ Picture = "ToolList.frx":0238\r
+ Key = ""\r
+ EndProperty\r
+ BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} \r
+ Picture = "ToolList.frx":0310\r
+ Key = ""\r
+ EndProperty\r
+ EndProperty\r
+ End\r
+ Begin MSComctlLib.ImageList ImageList2 \r
+ Left = 1560\r
+ Top = 2400\r
+ _ExtentX = 1005\r
+ _ExtentY = 1005\r
+ BackColor = -2147483643\r
+ ImageWidth = 24\r
+ ImageHeight = 24\r
+ MaskColor = 12632256\r
+ _Version = 393216\r
+ BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} \r
+ NumListImages = 5\r
+ BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} \r
+ Picture = "ToolList.frx":03E8\r
+ Key = ""\r
+ EndProperty\r
+ BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} \r
+ Picture = "ToolList.frx":04C4\r
+ Key = ""\r
+ EndProperty\r
+ BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} \r
+ Picture = "ToolList.frx":0574\r
+ Key = ""\r
+ EndProperty\r
+ BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} \r
+ Picture = "ToolList.frx":0654\r
+ Key = ""\r
+ EndProperty\r
+ BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} \r
+ Picture = "ToolList.frx":0734\r
+ Key = ""\r
+ EndProperty\r
+ EndProperty\r
+ End\r
+ Begin MSComctlLib.ImageList ImageList1 \r
+ Left = 0\r
+ Top = 2280\r
+ _ExtentX = 1005\r
+ _ExtentY = 1005\r
+ BackColor = -2147483643\r
+ ImageWidth = 24\r
+ ImageHeight = 24\r
+ MaskColor = 12632256\r
+ _Version = 393216\r
+ BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} \r
+ NumListImages = 5\r
+ BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} \r
+ Picture = "ToolList.frx":0810\r
+ Key = ""\r
+ EndProperty\r
+ BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} \r
+ Picture = "ToolList.frx":08EC\r
+ Key = ""\r
+ EndProperty\r
+ BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} \r
+ Picture = "ToolList.frx":09A8\r
+ Key = ""\r
+ EndProperty\r
+ BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} \r
+ Picture = "ToolList.frx":0A6C\r
+ Key = ""\r
+ EndProperty\r
+ BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} \r
+ Picture = "ToolList.frx":0B4C\r
+ Key = ""\r
+ EndProperty\r
+ EndProperty\r
+ End\r
+End\r
+Attribute VB_Name = "ToolList"\r
+Attribute VB_Creatable = False\r
+Attribute VB_Exposed = False\r
+Option Explicit\r
+\r
+Dim tCommands() As String\r
+Private Sub cmdOK_Click()\r
+Dim tNum As Long\r
+DelKey AppKey + "Tools\"\r
+NewKey AppKey + "Tools\"\r
+For tNum = 0 To tList.ListCount - 1\r
+ SetReg AppKey + "Tools\Name" + CStr(tNum), tList.List(tNum)\r
+ SetReg AppKey + "Tools\Command" + CStr(tNum), tCommands(tNum + 1)\r
+Next tNum\r
+Unload Me\r
+End Sub\r
+Private Sub Command2_Click()\r
+Unload Me\r
+End Sub\r
+Private Sub Form_Load()\r
+Dim tNum As Long, ToolName As String, ToolCommand\r
+Left = MpqEx.Left + 330\r
+If Left < 0 Then Left = 0\r
+If Left + Width > Screen.Width Then Left = Screen.Width - Width\r
+Top = MpqEx.Top + 315\r
+If Top < 0 Then Top = 0\r
+If Top + Height > Screen.Height Then Top = Screen.Height - Height\r
+ReDim tCommands(0) As String\r
+Do\r
+ ToolName = GetReg(AppKey + "Tools\Name" + CStr(tNum))\r
+ ToolCommand = GetReg(AppKey + "Tools\Command" + CStr(tNum))\r
+ If ToolName = "" Then ToolName = ToolCommand\r
+ If ToolName <> "" Then\r
+ ReDim Preserve tCommands(UBound(tCommands) + 1) As String\r
+ tCommands(UBound(tCommands)) = ToolCommand\r
+ tList.AddItem ToolName\r
+ End If\r
+ tNum = tNum + 1\r
+Loop Until ToolName = ""\r
+End Sub\r
+Private Sub tList_Click()\r
+If tList.ListIndex > -1 Then\r
+ Toolbar1.Buttons.Item("Remove").Enabled = True\r
+ Toolbar1.Buttons.Item("Edit").Enabled = True\r
+Else\r
+ Toolbar1.Buttons.Item("Remove").Enabled = False\r
+ Toolbar1.Buttons.Item("Edit").Enabled = False\r
+End If\r
+If tList.ListIndex > 0 Then\r
+ Toolbar1.Buttons.Item("Up").Enabled = True\r
+Else\r
+ Toolbar1.Buttons.Item("Up").Enabled = False\r
+End If\r
+If tList.ListIndex < tList.ListCount - 1 And tList.ListIndex > -1 Then\r
+ Toolbar1.Buttons.Item("Down").Enabled = True\r
+Else\r
+ Toolbar1.Buttons.Item("Down").Enabled = False\r
+End If\r
+End Sub\r
+Private Sub Toolbar1_ButtonClick(ByVal Button As Button)\r
+Dim TempText As String, tNum As Long\r
+Select Case Button.Key\r
+Case "Add"\r
+ TempText = EditTItem.EditItem("Add Command", "", "")\r
+ If TempText <> vbCrLf Then\r
+ tList.AddItem Left(TempText, InStr(TempText, vbCrLf) - 1)\r
+ ReDim Preserve tCommands(UBound(tCommands) + 1) As String\r
+ tCommands(UBound(tCommands)) = Mid(TempText, InStr(TempText, vbCrLf) + 2)\r
+ tList.ListIndex = tList.ListCount - 1\r
+ End If\r
+Case "Remove"\r
+ For tNum = tList.ListIndex + 1 To tList.ListCount - 1\r
+ tCommands(tNum) = tCommands(tNum + 1)\r
+ Next tNum\r
+ ReDim Preserve tCommands(UBound(tCommands) - 1) As String\r
+ tList.RemoveItem tList.ListIndex\r
+ tList_Click\r
+Case "Edit"\r
+ TempText = EditTItem.EditItem("Edit Command", tList.List(tList.ListIndex), tCommands(tList.ListIndex + 1))\r
+ tList.List(tList.ListIndex) = Left(TempText, InStr(TempText, vbCrLf) - 1)\r
+ tCommands(tList.ListIndex + 1) = Mid(TempText, InStr(TempText, vbCrLf) + 2)\r
+Case "Up"\r
+ TempText = tList.List(tList.ListIndex)\r
+ tList.List(tList.ListIndex) = tList.List(tList.ListIndex - 1)\r
+ tList.List(tList.ListIndex - 1) = TempText\r
+ TempText = tCommands(tList.ListIndex + 1)\r
+ tCommands(tList.ListIndex + 1) = tCommands(tList.ListIndex)\r
+ tCommands(tList.ListIndex) = TempText\r
+ tList.ListIndex = tList.ListIndex - 1\r
+Case "Down"\r
+ TempText = tList.List(tList.ListIndex)\r
+ tList.List(tList.ListIndex) = tList.List(tList.ListIndex + 1)\r
+ tList.List(tList.ListIndex + 1) = TempText\r
+ TempText = tCommands(tList.ListIndex + 1)\r
+ tCommands(tList.ListIndex + 1) = tCommands(tList.ListIndex + 2)\r
+ tCommands(tList.ListIndex + 2) = TempText\r
+ tList.ListIndex = tList.ListIndex + 1\r
+End Select\r
+End Sub\r
|