How to Code

ou should consider using Process.Start instead of Shell, as Shell is a holdover from the VB 6 days and Process.Start is built into the .NET Framework.

Here is an example of running Microsoft Word via the command line, passing it parameters, including file name and any flags:

Sub Main()
OpenMicrosoftWord("C:UsersSamDocumentsOfficeGears.docx")
End Sub

'''

''' Open the path parameter with Microsoft Word.
'''

Example 1

Private Sub OpenMicrosoftWord(ByVal f As String)
Dim startInfo As New ProcessStartInfo
startInfo.FileName = "WINWORD.EXE"
startInfo.Arguments = f
Process.Start(startInfo)
End Sub

Example 2

Private Sub FoldersToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FoldersToolStripMenuItem.Click
Dim B As String = PathSWD.TREE
If Dir(B + "savedfolders.txt") <> "" Then
Dim startInfo As New ProcessStartInfo
startInfo.FileName = "notepad.exe"
startInfo.Arguments = B + "savedfolders.txt"
Process.Start(startInfo)

End If
Application.DoEvents()
End Sub

Old School Example

old school
Dim R As String = My.Computer.Name '
R = GetIni("Database", R, INI)
If R = "" Then
WriteIni("Database", My.Computer.Name, "Dropboxvb10fileExplorerfileExplorerbinReleasePHPCreator.mdb", INI)
Shell("write.exe " + INI, vbNormalFocus) : Exit Sub
End If

under the menu "debug" look for "xxxx debug properties"

Application
compile
debug
references
resources
services
Settings
signing
my extension's
security
publish
code analysis.

Imports Microsoft.Office.Interop.Outlook

Module Module1
Sub Main()
' Initialize Outlook application
Dim outlookApp As New Application()
Dim namespaceMAPI As [NameSpace] = outlookApp.GetNamespace("MAPI")

' Specify the path to the Outlook Data File (PST)
Dim pstFilePath As String = "C:PathToYourDataFile.pst"
Dim pstDisplayName As String = "Archived Emails"

' Add the PST file to Outlook if not already added
Try
namespaceMAPI.AddStore(pstFilePath)
Catch ex As Exception
Console.WriteLine("PST file already added or an error occurred: " & ex.Message)
End Try

' Get the root folder of the PST file
Dim pstRootFolder As MAPIFolder = namespaceMAPI.Folders(pstDisplayName)

' Loop through all accounts in Outlook
For Each account As Account In namespaceMAPI.Accounts
Console.WriteLine("Processing account: " & account.DisplayName)

' Access the Inbox folder of the account
Dim inboxFolder As MAPIFolder = namespaceMAPI.Folders(account.DisplayName).Folders("Inbox")

' Create a subfolder in the PST file for this account
Dim accountFolder As MAPIFolder = pstRootFolder.Folders.Add(account.DisplayName)

' Move emails from the Inbox to the PST subfolder
For i As Integer = inboxFolder.Items.Count To 1 Step -1
Try
Dim mailItem As MailItem = TryCast(inboxFolder.Items(i), MailItem)
If mailItem IsNot Nothing Then
mailItem.Move(accountFolder)
Console.WriteLine("Moved email: " & mailItem.Subject)
End If
Catch ex As Exception
Console.WriteLine("Error moving email: " & ex.Message)
End Try
Next
Next

Console.WriteLine("Emails moved successfully!")
End Sub
End Module
Key Points:
Add Reference: Add a reference to the Microsoft.Office.Interop.Outlook library in your project.
PST File Path: Replace "C:PathToYourDataFile.pst" with the actual path to your PST file.
Permissions: Ensure you have the necessary permissions to access the accounts and move emails.
Error Handling: The code includes basic error handling, but you may need to enhance it for production use.
Outlook Version: This code is compatible with Outlook versions that support the Interop library.
Notes:
Running this code may require administrative privileges.
Ensure Outlook is properly configured and running on the machine.
Test the script in a safe environment before using it on live data to avoid accidental data loss.

=============== option =================

' Initialize Outlook application
Dim outlookApp As New Outlook.Application()
Dim namespaceMAPI As Outlook.NameSpace = outlookApp.GetNamespace("MAPI")

' Loop through all accounts
For Each account As Outlook.Account In namespaceMAPI.Accounts
MsgBox(account.DisplayName)
'Console.WriteLine($"Processing account: {account.DisplayName}")

' Access the Inbox folder for the account
Dim inbox As Outlook.MAPIFolder = namespaceMAPI.Folders(account.DisplayName).Folders("Inbox")

' Specify the target folder (e.g., "Processed Emails")
'Dim targetFolder As MAPIFolder = namespaceMAPI.Folders(account.DisplayName).Folders("Processed Emails")


Next

'Console.WriteLine("Emails moved successfully!")

======= flag status ==================

Determining if an email is "flagged" in VB.NET typically refers to checking the follow-up flag status of an email within an application like Microsoft Outlook. This involves interacting with the Outlook object model.
Here's a general approach using the Outlook Object Model in VB.NET:

Reference the Outlook Library: In your VB.NET project, add a reference to the Microsoft Outlook Object Library.
Create an Outlook Application Object:

Code

Dim olApp As New Outlook.Application()

Get the Namespace and Folder.
Code

Dim olNS As Outlook.Namespace = olApp.GetNamespace("MAPI")
Dim inboxFolder As Outlook.MAPIFolder = olNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)

Iterate Through Mail Items.
Code

For Each item As Object In inboxFolder.Items
If TypeOf item Is Outlook.MailItem Then
Dim mailItem As Outlook.MailItem = CType(item, Outlook.MailItem)

' Check the FlagStatus property
If mailItem.FlagStatus = Outlook.OlFlagStatus.olFlagged Then
' The email is flagged
Console.WriteLine($"Email: {mailItem.Subject} is flagged.")
ElseIf mailItem.FlagStatus = Outlook.OlFlagStatus.olFlagComplete Then
' The email flag is marked complete
Console.WriteLine($"Email: {mailItem.Subject} flag is complete.")
Else
' The email is not flagged
Console.WriteLine($"Email: {mailItem.Subject} is not flagged.")
End If
End If
Next

Explanation:

Outlook.OlFlagStatus.olFlagged: Indicates the email has been flagged for follow-up.
Outlook.OlFlagStatus.olFlagComplete: Indicates the follow-up flag has been marked as complete.
Outlook.OlFlagStatus.olNotFlagged: Indicates no follow-up flag is set.

Important Considerations:

Outlook Installation:
This approach requires Microsoft Outlook to be installed on the machine where the VB.NET application is running.
Security Prompts:
Outlook may display security prompts when your application attempts to access its data.
Error Handling:
Implement robust error handling to manage potential issues like Outlook not being open or access denied.
Alternatives:
For scenarios where Outlook isn't installed or direct interaction is not desired, consider using APIs like Microsoft Graph API (if working with Outlook 365) to access mailbox data and flag status.

Public Sub New()
' Set form title
Me.Text = "Form Position and Size Example"

' Set form position (Top, Left) and size (Width, Height)
Me.StartPosition = FormStartPosition.Manual ' Required to manually set position
Me.Left = 200 ' Distance from left edge of screen
Me.Top = 150 ' Distance from top edge of screen
Me.Width = 800 ' Form width in pixels
Me.Height = 600 ' Form height in pixels

' Add a button to display current values
Dim btnShowInfo As New Button()
btnShowInfo.Text = "Show Form Info"
btnShowInfo.Dock = DockStyle.Fill
AddHandler btnShowInfo.Click, AddressOf ShowFormInfo
Me.Controls.Add(btnShowInfo)
End Sub

Private Sub ShowFormInfo(sender As Object, e As EventArgs)
' Display current position and size
MessageBox.Show(
$"Top: {Me.Top}" & vbCrLf &
$"Left: {Me.Left}" & vbCrLf &
$"Width: {Me.Width}" & vbCrLf &
$"Height: {Me.Height}",
"Form Info"
)
End Sub


Public Shared Sub Main()
Application.EnableVisualStyles()
Application.SetCompatibleTextRenderingDefault(False)
Application.Run(New MainForm())
End Sub
End Class

---

MsgBox(My.Computer.Screen.WorkingArea.Height)
MsgBox(My.Computer.Screen.WorkingArea.Width)
MessageBox.Show(
$"Top: {Me.Top}" & vbCrLf &
$"Left: {Me.Left}" & vbCrLf &
$"Width: {Me.Width}" & vbCrLf &
$"Height: {Me.Height}",
"Form Info"
)

WORKS ON EXTERNAL DRIVES

To prevent an external hard drive from sleeping using VB.NET, create a background thread that writes a tiny, hidden text file to the drive every 60–120 seconds. This activity keeps the drive active, preventing it from entering a low-power sleep state, which is generally more effective than relying on OS power settings
.
Imports System.IO
Imports System.Threading

Module Module1
' Set the path to your external drive
Const DrivePath As String = "E:"
Const FileName As String = "keepalive.txt"

Sub Main()
Console.WriteLine("Preventing drive " & DrivePath & " from sleeping...")

Dim keepAliveThread As New Thread(AddressOf KeepDriveAwake)
keepAliveThread.IsBackground = True
keepAliveThread.Start()

' Keep the console app running
Console.ReadLine()
End Sub

Sub KeepDriveAwake()
Dim filePath As String = Path.Combine(DrivePath, FileName)

Do
Try
' Write a timestamp to the file
File.WriteAllText(filePath, DateTime.Now.ToString())
' Set file to hidden so it's not distracting
File.SetAttributes(filePath, FileAttributes.Hidden)
Console.WriteLine("Ping: " & DateTime.Now.ToString())
Catch ex As Exception
Console.WriteLine("Error: " & ex.Message)
End Try

' Wait 90 seconds before writing again
Thread.Sleep(90000)
Loop
End Sub
End Module

Key Considerations

Drive Letter: Ensure DrivePath (e.g., "E:") matches your external drive letter.
Interval: A 60–90 second interval (90000 milliseconds) is usually sufficient to prevent sleep without causing excessive wear.
Alternatives: You can also disable "Allow the computer to turn off this device" in Device Manager for the USB root hub, notes this YouTube video.

Example from webtools
Private Sub FoldersToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FoldersToolStripMenuItem.Click
If PathSWD.DriveAlive = True Then
PathSWD.DriveAlive = False : MsgBox("Drive alive is turned off") : Exit Sub
Else
PathSWD.DrivePath = GetIni(My.Computer.Name, "DrivePath", INI)
If PathSWD.DrivePath = "" Then
MsgBox("Enter 'DrivePath=' value in INI file") : Exit Sub
End If
PathSWD.FileName = GetIni(My.Computer.Name, "FileName", INI)
If PathSWD.FileName = "" Then
MsgBox("Enter 'FileName=' value in INI file") : Exit Sub
End If
Dim cdrive As System.IO.DriveInfo
cdrive = My.Computer.FileSystem.GetDriveInfo(PathSWD.DrivePath)
If cdrive.IsReady = False Then
MsgBox("This " + PathSWD.DrivePath + " drive is NOT READY.") : Exit Sub
End If
PathSWD.DriveAlive = True : MsgBox("Drive alive is turned on")
End If

Dim keepAliveThread As New Thread(AddressOf KeepDriveAwake)
keepAliveThread.IsBackground = True
keepAliveThread.Start()

End Sub
Public Sub KeepDriveAwake()
Dim filePath As String = Path.Combine(PathSWD.DrivePath, PathSWD.FileName)

Do
Try
' Write a timestamp to the file
File.WriteAllText(filePath, DateTime.Now.ToString())
' Set file to hidden so it's not distracting
File.SetAttributes(filePath, FileAttributes.Hidden)
Console.WriteLine("Ping: " & DateTime.Now.ToString())
Catch ex As Exception
'Console.WriteLine("Error: " & ex.Message)
MsgBox("driveawake error")
End Try
' Wait 180 seconds before writing again
Thread.Sleep(180000)
'MsgBox("Write " + filePath)
Loop Until PathSWD.DriveAlive = False
End Sub

WORKS ON COMPUTER ONLY

Imports System.Runtime.InteropServices

Public Class PowerManagement

Private Shared Function SetThreadExecutionState(esFlags As EXECUTION_STATE) As EXECUTION_STATE
End Function


Private Enum EXECUTION_STATE As UInteger
ES_SYSTEM_REQUIRED = &H1
ES_CONTINUOUS = &H80000000UI
End Enum

' Keeps the system awake
Public Shared Sub KeepAlive()
SetThreadExecutionState(EXECUTION_STATE.ES_SYSTEM_REQUIRED Or EXECUTION_STATE.ES_CONTINUOUS)
End Sub

' Resets to default power behavior
Public Shared Sub AllowSleep()
SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS)
End Sub
End Class

Module ConnDB() in Using The Datagridview Control

Private Sub LoadMultipleCombo()
Try
sqL = "SELECT [replaceid],[title],[section_code] FROM [mulitreplace] order by [title]"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
'dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)

Catch ex As Exception
MsgBox(ex.Message)
End Try
Dim Table_ As String = "mulitreplace ORDER BY title"
Dim ds As New DataSet
Dim da As New OleDbDataAdapter(cmd)
da.Fill(ds, Table_)
conn.Close()
Dim t1 As DataTable = ds.Tables(Table_)
txMultiAction.Items.Clear()
txMultiAction.ValueMember = "replaceid"
txMultiAction.DisplayMember = "title"
txMultiAction.DataSource = ds.Tables(Table_)
End Sub

---

Function LoadMultiData()
ConnDB()
Dim Table_ As String = "mulitreplace WHERE replaceid=" + Str(txMultiAction.SelectedValue)
Dim query As String = "SELECT * FROM " & Table_
Dim ds As New DataSet
Dim cmd As New OleDbCommand(query, conn)
Dim da As New OleDbDataAdapter(cmd)
da.Fill(ds, Table_)
conn.Close()
Dim t1 As DataTable = ds.Tables(Table_)
Dim row As DataRow
Dim Item(2) As String
For Each row In t1.Rows
Item(0) = row(0)
Item(1) = row(1)
Item(2) = row(2)

Next
Return Item(2)
End Function

Imports System.IO
Imports System.Text
Imports System.Data.OleDb

Load data grid

05/05/26

Private Sub btAdd_Click_1(sender As Object, e As EventArgs) Handles btAdd.Click
sqL = UpdateInfo(0, "add")
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Dim ColumnList As New ArrayList() : ColumnList.Add(0)
For I = 1 To GridOut.field_count
ColumnList.Add(UpdateInfo("TXField" + Trim(Str(I)), "cells"))
Next
DataGridView1.Rows.Add(ColumnList.ToArray())
End Sub

Private Sub PrepareControl(FindIt As String, CTRLtype As String, Optional BoxHeight As Int16 = 0, Optional ByRef BoxPos As Int16 = 0) '
'For i As Integer = 1 To 10
Dim key = FindIt
Dim hits = Me.Controls.Find(key, True)
If hits.Length > 0 Then
Select Case CTRLtype
Case "labelClear"
Dim la = TryCast(hits(0), Label)
If la IsNot Nothing Then la.Visible = False
Case "textboxClear"
Dim tb = TryCast(hits(0), TextBox)
If tb IsNot Nothing Then tb.Visible = False : tb.Text = ""
Case "textboxDataEntry"
Dim tb = TryCast(hits(0), TextBox)
If tb IsNot Nothing Then
With tb
.Top = BoxPos : PrepareControl("LAField" + FindIt.Substring(FindIt.Length - 1, 1), "labelDataEntry", BoxHeight, BoxPos)
.Height = BoxHeight * 20 : .Width = 500
'If BoxHeight > 1 Then MsgBox(.Top & "===" & .Height & Str(BoxPos)) : Stop
.Left = 320 : BoxPos = BoxPos + BoxHeight * 20 + 3
.Visible = True : .Multiline = False : If BoxHeight > 1 Then .Multiline = True

End With
End If
Case "labelDataEntry"
Dim tb = TryCast(hits(0), Label)
If tb IsNot Nothing Then
tb.Top = BoxPos
End If
End Select
End If
'Next
End Sub

Private Function LoadGridData()
Dim FieldList() As String, tboxSize() As String, GridSize() As String, GridCellSize() As String
Dim BoxPos As Int32 = 430, FieldCount As Int16
GridOut.field_list = "" : GridOut.filter_on = "" : GridOut.gridCellwidths = "" : GridOut.ID = ""
GridOut.gridWxH = "" : GridOut.sort_field = "" : GridOut.table_name = "" : GridOut.textBoxTLHW_list = ""

For I As Integer = 1 To 9 : PrepareControl("LAField" + Trim(Str(I)), "labelClear") : Next
For I As Integer = 1 To 9 : PrepareControl("TXField" + Trim(Str(I)), "textboxClear") : Next
'table_selected = "layout" 'SWD test


Try
sqL = "SELECT [layoutid],[field_list],[filter_on],[gridCellwidths],[gridWxH],[ID],[sort_field],[storage],[table_name],[textBoxTLHW_list] FROM [layout] WHERE [table_name]='" + table_selected + "'"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
If dr.HasRows = True Then
dr.Read()
GridOut.field_list = dr(1) : GridOut.filter_on = dr(2) : GridOut.gridCellwidths = dr(3)
GridOut.gridWxH = dr(4) : GridOut.ID = dr(5) : GridOut.sort_field = dr(6) : GridOut.table_name = dr(8) : GridOut.textBoxTLHW_list = dr(9)
End If
'load arrays with values and check proper count
FieldList = GridOut.field_list.Split(",") : FieldCount = FieldList.Length : GridOut.field_count = FieldCount
GridSize = GridOut.gridWxH.Split(",") : If GridSize.Length <> 3 Then MsgBox("Enter Width,Height, cellheight of grid") : Return False
GridCellSize = GridOut.gridCellwidths.Split(",") : If GridCellSize.Length <> FieldCount Then MsgBox("Enter Width of each grid cell") : Return False
tboxSize = GridOut.textBoxTLHW_list.Split(",") : If tboxSize.Length <> FieldCount Then MsgBox("Enter each textbox height") : Return False
Catch ex As Exception
MsgBox(ex.Message) : Return False
End Try


Try
'POSITION TEXT BOXES
BoxPos = GridSize(1) + 4 : grDatabasePick.Top = BoxPos
For I = 1 To FieldCount : PrepareControl("TXField" + Trim(Str(I)), "textboxDataEntry", tboxSize(I - 1), BoxPos) : Next
For I = 1 To FieldCount 'CLEANUP LABEL FIELDS
Dim key = "LAField" + Trim(Str(I)) : Dim hits = Me.Controls.Find(key, True) : Dim tb = TryCast(hits(0), Label) : If tb IsNot Nothing Then tb.Text = StrConv(FieldList(I - 1), VbStrConv.ProperCase) : tb.Visible = True
Next
'CUSTOMIZE THE GRID CONTROL
With DataGridView1
.DataSource = Nothing : .Columns.Clear()
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.Width = GridSize(0) : .Height = GridSize(1) : .RowTemplate.Height = GridSize(2) : sqL = "SELECT [" + GridOut.ID + "]"

'.Columns.Add(GridOut.ID, GridOut.ID) :
For I = 1 To FieldCount
'.Columns.Add(FieldList(I - 1), FieldList(I - 1))
'.Columns(I).HeaderText = StrConv(FieldList(I - 1), VbStrConv.ProperCase) : .Columns(I).Width = GridCellSize(I - 1)
sqL = sqL + ",[" + Trim(FieldList(I - 1)) + "]"
Next
sqL = sqL + " FROM [" + GridOut.table_name + "] WHERE " + StripSlashes(GridOut.filter_on) + " ORDER BY " + GridOut.sort_field
ConnDB()
Dim adapter As New OleDbDataAdapter(sqL, conn)
Dim builder As New OleDbCommandBuilder(adapter)
Dim gridtable As New DataTable() ' 4. Fill the DataTable with data from the .mdb file
adapter.Fill(gridtable)
.DataSource = gridtable
.Columns(0).Visible = False
For I = 1 To FieldCount
.Columns(I).HeaderText = StrConv(.Columns(I).HeaderText, VbStrConv.ProperCase) : .Columns(I).Width = GridCellSize(I - 1)
Next

.PerformLayout()
End With
'End If
Catch ex As Exception
MsgBox(sqL)
MsgBox(ex.Message)
End Try
TXID.Text = ""

Return True
End Function
Private Sub DataGridView1_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then
Dim rowID As Object = DataGridView1.Rows(e.RowIndex).Cells(0).Value
'MessageBox.Show($"Row with ID={rowID} (RowIndex={e.RowIndex}) was edited.","Row Edited",MessageBoxButtons.OK, MessageBoxIcon.Information)

' Optional: highlight the edited row
DataGridView1.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.LightYellow
UpdateTextboxValue()
btUpdate_Click_1(sender, e)
End If
End Sub
Private Sub DataGridView1_RowEnter(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.RowEnter
UpdateTextboxValue()
End Sub
Private Sub ProcessTextBox(tb As TextBox, boxPos As Int32, tboxSize As String)
With tb
.Multiline = False : If Int(tboxSize) > 1 Then .Multiline = True
.Top = boxPos : LAField1.Top = boxPos
.Height = Int(tboxSize(0)) * 20
.Left = 320 : boxPos = boxPos + .Height + 5
.Visible = True
End With
End Sub

Private Sub btRefresh_Click_1(sender As Object, e As EventArgs) Handles btRefresh.Click
If LoadGridData() = False Then MsgBox("You have problems In your layout")
End Sub
Function UpdateTextboxValue() As Boolean
Dim I As Int16 = 0
Try
Dim dr As DataGridViewRow = DataGridView1.SelectedRows(0)
TXID.Text = dr.Cells(0).Value.ToString()
For I = 1 To GridOut.field_count
Dim hits = Me.Controls.Find("TXField" & Trim(Str(I)), True) : Dim tb = TryCast(hits(0), TextBox) : If tb IsNot Nothing Then tb.Text = dr.Cells(I).Value.ToString()
Next
Select Case table_selected
Case "copy_it"
Clipboard.SetText(TXField2.Text, TextDataFormat.UnicodeText)
End Select
Catch ex As Exception
Return False
End Try

Return True
End Function


Function UpdateInfo(key As String, ActionDone As String) As String
Dim TMP As String, TMP2 As String = "", I As Int16
Select Case ActionDone
Case "add"
'sqL = "INSERT INTO [copy_it]([category],[copy_text],[notes]) VALUES ('" + TXField1.Text + "', '" + TXField3.Text + "', '" + TXField2.Text + "')"
Dim FieldList() As String = GridOut.field_list.Split(",")
TMP = "INSERT INTO [" + GridOut.table_name + "]("
For I = 1 To GridOut.field_count
TMP = TMP + TMP2 + "[" + Trim(FieldList(I - 1)) + "]" : TMP2 = ", "
Next
TMP = TMP + ") VALUES (" : TMP2 = ""
For I = 1 To GridOut.field_count : TMP = TMP + TMP2 + "'" + AddSlashes(UpdateInfo("TXField" + Trim(Str(I)), "cells")) + "'" : TMP2 = ", " : Next
TMP = TMP + ")"
Return TMP
Case "cells"
Dim hits = Me.Controls.Find(key, True) : Dim tb = TryCast(hits(0), TextBox)
If tb IsNot Nothing Then Return tb.Text
Case "update"
Dim FieldList() As String = GridOut.field_list.Split(",")
TMP = "UPDATE " + GridOut.table_name + " SET "
For I = 1 To GridOut.field_count
TMP = TMP + TMP2 + "[" + Trim(FieldList(I - 1)) + "]='" + AddSlashes(UpdateInfo("TXField" + Trim(Str(I)), "cells")) + "'" : TMP2 = ", "
Next
TMP = TMP + " WHERE [" + GridOut.ID + "]= " + TXID.Text
Return TMP
End Select

Return False
End Function

Private Sub btUpdate_Click_1(sender As Object, e As EventArgs) Handles btUpdate.Click
Dim update As DataGridViewRow = DataGridView1.SelectedRows(0), I As Int16
If TXID.Text = "0" Then MsgBox("You cannot edit new records without refresh.") : Exit Sub
For I = 1 To GridOut.field_count
update.Cells(I).Value = UpdateInfo("TXField" + Trim(Str(I)), "cells")
Next
Try
sqL = UpdateInfo(TXID.Text, "update")
'Stop
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub rbFilePaths_CheckedChanged(sender As Object, e As EventArgs) Handles rbFilePaths.CheckedChanged
If rbFilePaths.Checked = True Then table_selected = "file_paths" : btRefresh_Click_1(sender, e)
End Sub

Private Sub rbMultireplace_CheckedChanged(sender As Object, e As EventArgs) Handles rbMultireplace.CheckedChanged
If rbMultireplace.Checked = True Then table_selected = "mulitreplace" : btRefresh_Click_1(sender, e)
End Sub

Private Sub rbDirectoryCopy_CheckedChanged(sender As Object, e As EventArgs) Handles rbDirectoryCopy.CheckedChanged
If rbDirectoryCopy.Checked = True Then table_selected = "directory_copy" : btRefresh_Click_1(sender, e)
End Sub

Private Sub RBcopyText_CheckedChanged(sender As Object, e As EventArgs) Handles RBcopyText.CheckedChanged
If RBcopyText.Checked = True Then table_selected = "copy_it" : btRefresh_Click_1(sender, e)
End Sub

Private Sub RBemailFiltered_CheckedChanged(sender As Object, e As EventArgs) Handles RBemailFiltered.CheckedChanged



=================================================================

---

Delete Rows from grid

Example: Deleting Selected Row

Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
' Check if any row is selected
If DataGridView1.SelectedRows.Count > 0 Then
' Remove the first selected row
DataGridView1.Rows.Remove(DataGridView1.SelectedRows(0))
Else
MessageBox.Show("Please select a row to delete.")
End If
End Sub
Copy
Explanation:

SelectedRows: Retrieves the rows selected by the user.

Rows.Remove: Deletes the specified row from the DataGridView.

Example: Deleting Row by Index

If you know the index of the row to delete:

Private Sub btnDeleteByIndex_Click(sender As Object, e As EventArgs) Handles btnDeleteByIndex.Click
Dim index As Integer = 0 ' Specify the index of the row to delete
If index >= 0 AndAlso index < DataGridView1.Rows.Count - 1 Then
DataGridView1.Rows.RemoveAt(index)
Else
MessageBox.Show("Invalid row index.")
End If
End Sub
Copy
Important Considerations:

Bound Data: If your DataGridView is bound to a data source, you must remove the item from the data source instead of directly removing it from the grid.

Uncommitted Rows: Ensure that uncommitted new rows are not targeted for deletion, as this will throw an exception.

Validation: Always validate that a row exists before attempting to delete it to avoid runtime errors.

Imports System.Data.OleDb

' ... connection setup

Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:PathToYourDatabase.accdb;"
Using conn As New OleDbConnection(connectionString)
conn.Open()
Dim query As String = "SELECT * FROM YourTableName" ' Or a specific query
Dim cmd As New OleDbCommand(query, conn)

Using rdrOLEDB As OleDbDataReader = cmd.ExecuteReader()
Console.WriteLine("Field Names:")
For i As Integer = 0 To rdrOLEDB.FieldCount - 1
Console.WriteLine(rdrOLEDB.GetName(i))
Next
End Using
End Using

[READ]
read entire file into string.
A = My.Computer.FileSystem.ReadAllText(Path.TREE2 + "/" + Explore.File1.Items(J).ToString, System.Text.Encoding.Default)
CODE1 = My.Computer.FileSystem.ReadAllText(Tree2 + Filename + "Code.txx")

[WRITE]
Dim CODE1 As String = My.Computer.FileSystem.ReadAllText(Tree2 + Filename + "Code.txx")
J = InStr(CODE1, "``") : CODE1 = Left(CODE1, J - 1)
For J = 0 To TMPA.Count - 1
If InStr(CODE1, "`" + TMPA(J) + "`") = 0 Then NotFound = True : CODE1 = CODE1 + "`" + TMPA(J) + "`" + vbCR
Next
CODE1 = CODE1 + "``" + vbCR
If NotFound = True Then My.Computer.FileSystem.WriteAllText(Tree2 + Filename + "Code.txx", CODE1, append:=False)

If you get html text from a browser you can read the clipboard as html

Imports System.Text.RegularExpressions

Module Module1

Sub Main()
' Input.
Dim html As String = "

There was a .NET programmer " +
"and he stripped the HTML tags.

"

' Call Function.
Dim tagless As String = StripTags(html)

' Write.
Console.WriteLine(tagless)
End Sub

'''

''' Strip HTML tags.
'''

Function StripTags(ByVal html As String) As String
' Remove HTML tags.
Return Regex.Replace(html, "<.*?>", "")
End Function

End Module

Dim APOS2 As Integer, APOS As Integer
A = Replace(A, Chr(9), " ")
APOS2 = Len(A) : APOS = Len(LTrim$(A)) : APOS = APOS2 - APOS
A = Trim$(A)
A = Replace(A, Chr(34), Chr(34) + "+chr(34)+" + Chr(34))

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
PopulateTreeView(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
End Sub

Private Sub PopulateTreeView(path As String)
' Clear the TreeView control
TreeView1.Nodes.Clear()

' Create the root node for the TreeView
Dim rootNode = New TreeNode(path) With {.Tag = path}
TreeView1.Nodes.Add(rootNode)

' Recursively add child nodes for directories and their files
AddDirectories(rootNode)
End Sub

Private Sub AddDirectories(parentNode As TreeNode)
' Get the path of the parent node
Dim path = DirectCast(parentNode.Tag, String)

' Get the directories in the current path
Dim directories = IO.Directory.GetDirectories(path)

' Add child nodes for each directory
For Each dir As String In directories
Dim directoryNode = New TreeNode(IO.Path.GetFileName(dir)) With {.Tag = dir}
parentNode.Nodes.Add(directoryNode)

Try
' Get the files in the current directory
Dim files = IO.Directory.GetFiles(dir)

' Add child nodes for each file
For Each file In files
Dim fileNode = New TreeNode(IO.Path.GetFileName(file)) With {.Tag = file}
directoryNode.Nodes.Add(fileNode)
Next

' Recursively add child nodes for subdirectories
AddDirectories(directoryNode)
Catch invalidAccessEx As UnauthorizedAccessException
directoryNode.ForeColor = Color.Red
End Try
Next
End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Button2_Click(Sender, e)
End Sub

BTbulkMove_Click(sender As Object, e As EventArgs) translates to BTbulkMove_Click(sender, e)

BTtest_Click(sender As Object, e As EventArgs) translates to BTtest_Click(sender, e)

Common Events Fired on Minimize
Resize
Fires whenever the form’s size changes — including minimize, maximize, and restore.

SizeChanged
Similar to Resize, but occurs after the size change is applied.

Layout
Fires when the layout of the form or its controls changes.

Activated / Deactivate
If minimizing causes the form to lose focus, Deactivate will fire.
When restored and focused again, Activated will fire.

ResizeBegin / ResizeEnd
Only fire during manual resizing (dragging edges), not when clicking minimize.

Detecting Minimize Specifically
You can detect a minimize action by checking the WindowState property inside the Resize or SizeChanged event:

http://www.dreamincode.net/forums/topic/59527-make-a-program-to-run-in-the-background/

This tutorial deals with how to make a standard VB.NET application run
in the background, like a process. By background i mean that the
application will have no interface (form or console) and will run from a
Sub Main(), but will not terminate once all the code in Main has
executed. That means your program will run like a normal form
application, and will only exit when told to. First, create a standard
Windows Form application. Then, go to the solution explorer, and double
click on the item that says My Project.

[attachment=7480:attachment]

Once that is opened, you should see something like this

[attachment=7484:attachment]

There are a few very simple things you need to change there. First,
uncheck the box that says "Enable Application Framework". Then, go to
the box that says "Startup Object:" and change that to Sub Main. Then,
delete the form that was put in your application automatically. By now,
you should notice that there is no startup object in your application.
In fact, there is no Code in your application. So, you need to add a Sub Main in. Add a new module to your application (call it anything you want). Then, add this sub into your module:



Let me explain exactly what this is doing. When you changed the startup
object to Sub Main, you application will execute from a Main routine,
like a console application, so what is stopping it from showing a
console window? Notice the box that says "Application Type:". You will
see that that is set to "Windows Form Application". When you create a
console application, that box is set to "Console Application". When you
create any windows form application, there, of course, is no console
window. That is because the application has a type of "Windows Form
Application", which basically means your application will not show a
console. Of course, in Consle Applications, there are no forms. So what
happens when you application's type is Windows Form Application, and
there is no form in it? Your program will have no interface at all. But,
even though your application is called a Windows Form Application, it
will still exit once all the code in Sub Main has executed, like a
console application. To prevent that, you must have a line at the end of your Main routine that says Application.Run().
That line will prevent your application from closing right after Main
has finished. Now, it will run like a standard form application, just
with no form, and the only way you can close it is with an Application.Exit()
call. And it's as simple as that. You can treat the module your main
routine is in as if it was the code for your form. The only difference
is, there is no form, and you can't add controls to it in the designer
(because there is no interface there to design). So, for example, if you
wanted to add a timer to your application, you can't just drag-and-drop
it on the form, you have to get down and dirty and add it in manually,
with something like this



That will create a timer object, exactly as if it was created by the
designer. To add a tick event handler for it, go to the box near the
top-left of the code editor. Select the item that says "Timer1", or
whatever you called your timer. Then, select the box next to it and it
will show a list of events for that control. Click the one you want,
Tick in this case, and it will add an event handler for that event
directly into your code.

Private Sub laPath_DoubleClick(sender As Object, e As EventArgs) Handles laPath.DoubleClick
Dim filePath As String = laPath.Text 'Example file
Process.Start("explorer.exe", "/select," & filePath) : Application.DoEvents()
End Sub

[CHAR]
'// see indexof also
Dim myString As String = "ABCDE"
Dim myChar As Char
myChar = myString.Chars(3) '//myChar = "D"

[CONCAT]
Dim aString As String = "A"
Dim bString As String = "B"
Dim cString As String = "C"
Dim dString As String = "D"
Dim myString As String
' myString = "ABCD"
myString = String.Concat(aString, bString, cString, dString)


[INDEXOF]
'// see char also
Dim myString As String = "ABCDE"
Dim myInteger As Integer
myInteger = myString.IndexOf("D") ' myInteger = 3

[instr]
[left]

[LENGTH]
Dim MyString As String = "This is my string"
Dim stringLength As Integer
' Explicitly set the string to Nothing.
MyString = Nothing
' stringLength = 0
stringLength = Len(MyString)
' This line, however, causes an exception to be thrown.
stringLength = MyString.Length

[MID]
'//see substring. first charcter is position 1
Dim aString As String = "SomeString"
Dim bString As String
bString = Mid(aString, 3, 3)


[right]

[SPLIT]
'// returns an array
Dim shoppingList As String = "Milk,Eggs,Bread"
Dim shoppingItem(2) As String
shoppingItem = shoppingList.Split(","c)



[SUBSTRING]
'//first character is position zero. See mid()
Dim aString As String = "A String"
Dim bString As String
bString = aString.SubString(2,6) '//bString = "String"
or
Dim aString As String = "Left Center Right"
Dim subString As String
' subString = "Center"
subString = aString.SubString(5,6)



Visual Basic .NET methods are used as inherent functions of the language. They may be used without qualification in your code. The following example shows typical use of a Visual Basic .NET string-manipulation command:

In this example, the Mid function performs a direct operation on aString and assigns the value to bString.

You can also manipulate strings with the methods of the String class. There are two types of methods in String: shared methods and instance methods.

A shared method is a method that stems from the String class itself and does not require an instance of that class to work. These methods can be qualified with the name of the class (String) rather than with an instance of the String class. For example:

Dim aString As String
bString = String.Copy("A literal string")

In the preceding example, the String.Copy method is a static method, which acts upon an expression it is given and assigns the resulting value to bString.

NET runtime evaluates Nothing as an empty string; that is, "". The .NET Framework, however, does not, and will throw an exception whenever an attempt is made to perform a string operation on Nothing.
Comparing Strings

You can compare two strings by using the String.Compare method. This is a static, overloaded method of the base string class. In its most common form, this method can be used to directly compare two strings based on their alphabetical sort order. This is similar to the Visual Basic StrComp Function function. The following example illustrates how this method is used:

Dim myString As String = "Alphabetical"
Dim secondString As String = "Order"
Dim result As Integer
result = String.Compare (myString, secondString)

This method returns an integer that indicates the relationship between the two compared strings based on the sorting order. A positive value for the result indicates that the first string is greater than the second string. A negative result indicates the first string is smaller, and zero indicates equality between the strings. Any string, including an empty string, evaluates to greater than a null reference.

Additional overloads of the String.Compare method allow you to indicate whether or not to take case or culture formatting into account, and to compare substrings within the supplied strings. For more information on how to compare strings, see String.Compare Method. Related methods include String.CompareOrdinal Method and String.CompareTo Method.
Searching for Strings Within Your Strings

There are times when it is useful to have data about the characters in your string and the positions of those characters within your string. A string can be thought of as an array of characters (Char instances); you can retrieve a particular character by referencing the index of that character through the Chars property. For example:


You can use the String.IndexOf method to return the index where a particular character is encountered, as in the following example:

Dim myString As String = "ABCDE"
Dim myInteger As Integer
myInteger = myString.IndexOf("D") ' myInteger = 3

In the previous example, the IndexOf method of myString was used to return the index corresponding to the first instance of the character "C" in the string. IndexOf is an overloaded method, and the other overloads provide methods to search for any of a set of characters, or to search for a string within your string, among others. The Visual Basic .NET command InStr also allows you to perform similar functions. For more information of these methods, see String.IndexOf Method and InStr Function. You can also use the String.LastIndexOf Method to search for the last occurrence of a character in your string.
Creating New Strings from Old

When using strings, you may want to modify your strings and create new ones. You may want to do something as simple as convert the entire string to uppercase, or trim off trailing spaces; or you may want to do something more complex, such as extracting a substring from your string. The System.String class provides a wide range of options for modifying, manipulating, and making new strings out of your old ones.

To combine multiple strings, you can use the concatenation operators (& or +). You can also use the String.Concat Method to concatenate a series of strings or strings contained in objects. An example of the String.Concat method follows:


You can convert your strings to all uppercase or all lowercase strings using either the Visual Basic .NET functions UCase Function and LCase Function or the String.ToUpper Method and String.ToLower Method methods. An example is shown below:

Dim myString As String = "UpPeR oR LoWeR cAsE"
Dim newString As String
' newString = "UPPER OR LOWER CASE"
newString = UCase(myString)
' newString = "upper or lower case"
newString = LCase(myString)
' newString = "UPPER OR LOWER CASE"
newString = myString.ToUpper
' newString = "upper or lower case"
newString = myString.ToLower

The String.Format method and the Visual Basic .NET Format command can generate a new string by applying formatting to a given string. For information on these commands, see Format Function or String.Format Method.

You may at times need to remove trailing or leading spaces from your string. For instance, you might be parsing a string that had spaces inserted for the purposes of alignment. You can remove these spaces using the String.Trim Method function, or the Visual Basic .NET Trim function. An example is shown:

Dim spaceString As String = _
" This string will have the spaces removed "
Dim oneString As String
Dim twoString As String
' This removes all trailing and leading spaces.
oneString = spaceString.Trim
' This also removes all trailing and leading spaces.
twoString = Trim(spaceString)

If you only want to remove trailing spaces, you can use the String.TrimEnd Method or the RTrim function, and for leading spaces you can use the String.TrimStart Method or the LTrim function. For more details, see LTrim, RTrim, and Trim Functions functions.

The String.Trim functions and related functions also allow you to remove instances of a specific character from the ends of your string. The following example trims all leading and trailing instances of the "#" character:

Dim myString As String = "#####Remove those!######"
Dim oneString As String
OneString = myString.Trim("#")

You can also add leading or trailing characters by using the String.PadLeft Method or the String.PadRight Method.

If you have excess characters within the body of your string, you can excise them by using the String.Remove Method, or you can replace them with another character using the String.Replace Method. For example:

Dim aString As String = "This is My Str@o@o@ing"
Dim myString As String
Dim anotherString As String
' myString = "This is My String"
myString = aString.Remove(14, 5)
' anotherString = "This is Another String"
anotherString = myString.Replace("My", "Another")

You can use the String.Replace method to replace either individual characters or strings of characters. The Visual Basic .NET Mid Statement can also be used to replace an interior string with another string.

You can also use the String.Insert Method to insert a string within another string, as in the following example:

Dim aString As String = "This is My Stng"
Dim myString As String
' Results in a value of "This is My String".
myString = aString.Insert(13, "ri")

The first parameter that the String.Insert method takes is the index of the character the string is to be inserted after, and the second parameter is the string to be inserted.

You can concatenate an array of strings together with a separator string by using the String.Join Method. Here is an example:

Dim shoppingItem(2) As String
Dim shoppingList As String
shoppingItem(0) = "Milk"
shoppingItem(1) = "Eggs"
shoppingItem(2) = "Bread"
shoppingList = String.Join(",", shoppingItem)

The value of shoppingList after running this code is "Milk,Eggs,Bread". Note that if your array has empty members, the method still adds a separator string between all the empty instances in your array.

You can also create an array of strings from a single string by using the String.Split Method. The following example demonstrates the reverse of the previous example: it takes a shopping list and turns it into an array of shopping items. The separator in this case is an instance of the Char data type; thus it is appended with the literal type character c.

The Visual Basic .NET Mid Function can be used to generate substrings of your string. The following example shows this functions in use:

Dim aString As String = "Left Center Right"
Dim rString, lString, mString As String
' rString = "Right"
rString = Mid(aString, 13)
' lString = "Left"
lString = Mid(aString, 1, 4)
' mString = "Center"
mString = Mid(aString, 6,6)

Substrings of your string can also be generated using the String.Substring Method. This method takes two arguments: the character index where the substring is to start, and the length of the substring. The String.Substring method operates much like the Mid function. An example is shown below:


There is one very important difference between the String.SubString method and the Mid function. The Mid function takes an argument that indicates the character position for the substring to start, starting with position 1. The String.SubString method takes an index of the character in the string at which the substring is to start, starting with position 0. Thus, if you have a string "ABCDE", the individual characters are numbered 1,2,3,4,5 for use with the Mid function, but 0,1,2,3,4 for use with the System.String function.

[CHAR]
'// see indexof also
Dim myString As String = "ABCDE"
Dim myChar As Char
myChar = myString.Chars(3) '//myChar = "D"

[CONCAT]
Dim aString As String = "A"
Dim bString As String = "B"
Dim cString As String = "C"
Dim dString As String = "D"
Dim myString As String
' myString = "ABCD"
myString = String.Concat(aString, bString, cString, dString)


[INDEXOF]
'// see char also
Dim myString As String = "ABCDE"
Dim myInteger As Integer
myInteger = myString.IndexOf("D") ' myInteger = 3

[instr]

[left]

[LENGTH]
Dim MyString As String = "This is my string"
Dim stringLength As Integer
' Explicitly set the string to Nothing.
MyString = Nothing
' stringLength = 0
stringLength = Len(MyString)
' This line, however, causes an exception to be thrown.
stringLength = MyString.Length

[MID]
'//see substring. first charcter is position 1
Dim aString As String = "SomeString"
Dim bString As String
bString = Mid(aString, 3, 3)


[right]

[SPLIT]
'// returns an array
Dim shoppingList As String = "Milk,Eggs,Bread"
Dim shoppingItem(2) As String
shoppingItem = shoppingList.Split(","c)



[SUBSTRING]
'//first character is position zero. See mid()
Dim aString As String = "A String"
Dim bString As String
bString = aString.SubString(2,6) '//bString = "String"
or
Dim aString As String = "Left Center Right"
Dim subString As String
' subString = "Center"
subString = aString.SubString(5,6)



Visual Basic .NET methods are used as inherent functions of the language. They may be used without qualification in your code. The following example shows typical use of a Visual Basic .NET string-manipulation command:

In this example, the Mid function performs a direct operation on aString and assigns the value to bString.

You can also manipulate strings with the methods of the String class. There are two types of methods in String: shared methods and instance methods.

A shared method is a method that stems from the String class itself and does not require an instance of that class to work. These methods can be qualified with the name of the class (String) rather than with an instance of the String class. For example:

Dim aString As String
bString = String.Copy("A literal string")

In the preceding example, the String.Copy method is a static method, which acts upon an expression it is given and assigns the resulting value to bString.

NET runtime evaluates Nothing as an empty string; that is, "". The .NET Framework, however, does not, and will throw an exception whenever an attempt is made to perform a string operation on Nothing.
Comparing Strings

You can compare two strings by using the String.Compare method. This is a static, overloaded method of the base string class. In its most common form, this method can be used to directly compare two strings based on their alphabetical sort order. This is similar to the Visual Basic StrComp Function function. The following example illustrates how this method is used:

Dim myString As String = "Alphabetical"
Dim secondString As String = "Order"
Dim result As Integer
result = String.Compare (myString, secondString)

This method returns an integer that indicates the relationship between the two compared strings based on the sorting order. A positive value for the result indicates that the first string is greater than the second string. A negative result indicates the first string is smaller, and zero indicates equality between the strings. Any string, including an empty string, evaluates to greater than a null reference.

Additional overloads of the String.Compare method allow you to indicate whether or not to take case or culture formatting into account, and to compare substrings within the supplied strings. For more information on how to compare strings, see String.Compare Method. Related methods include String.CompareOrdinal Method and String.CompareTo Method.
Searching for Strings Within Your Strings

There are times when it is useful to have data about the characters in your string and the positions of those characters within your string. A string can be thought of as an array of characters (Char instances); you can retrieve a particular character by referencing the index of that character through the Chars property. For example:


You can use the String.IndexOf method to return the index where a particular character is encountered, as in the following example:

Dim myString As String = "ABCDE"
Dim myInteger As Integer
myInteger = myString.IndexOf("D") ' myInteger = 3

In the previous example, the IndexOf method of myString was used to return the index corresponding to the first instance of the character "C" in the string. IndexOf is an overloaded method, and the other overloads provide methods to search for any of a set of characters, or to search for a string within your string, among others. The Visual Basic .NET command InStr also allows you to perform similar functions. For more information of these methods, see String.IndexOf Method and InStr Function. You can also use the String.LastIndexOf Method to search for the last occurrence of a character in your string.
Creating New Strings from Old

When using strings, you may want to modify your strings and create new ones. You may want to do something as simple as convert the entire string to uppercase, or trim off trailing spaces; or you may want to do something more complex, such as extracting a substring from your string. The System.String class provides a wide range of options for modifying, manipulating, and making new strings out of your old ones.

To combine multiple strings, you can use the concatenation operators (& or +). You can also use the String.Concat Method to concatenate a series of strings or strings contained in objects. An example of the String.Concat method follows:


You can convert your strings to all uppercase or all lowercase strings using either the Visual Basic .NET functions UCase Function and LCase Function or the String.ToUpper Method and String.ToLower Method methods. An example is shown below:

Dim myString As String = "UpPeR oR LoWeR cAsE"
Dim newString As String
' newString = "UPPER OR LOWER CASE"
newString = UCase(myString)
' newString = "upper or lower case"
newString = LCase(myString)
' newString = "UPPER OR LOWER CASE"
newString = myString.ToUpper
' newString = "upper or lower case"
newString = myString.ToLower

The String.Format method and the Visual Basic .NET Format command can generate a new string by applying formatting to a given string. For information on these commands, see Format Function or String.Format Method.

You may at times need to remove trailing or leading spaces from your string. For instance, you might be parsing a string that had spaces inserted for the purposes of alignment. You can remove these spaces using the String.Trim Method function, or the Visual Basic .NET Trim function. An example is shown:

Dim spaceString As String = _
" This string will have the spaces removed "
Dim oneString As String
Dim twoString As String
' This removes all trailing and leading spaces.
oneString = spaceString.Trim
' This also removes all trailing and leading spaces.
twoString = Trim(spaceString)

If you only want to remove trailing spaces, you can use the String.TrimEnd Method or the RTrim function, and for leading spaces you can use the String.TrimStart Method or the LTrim function. For more details, see LTrim, RTrim, and Trim Functions functions.

The String.Trim functions and related functions also allow you to remove instances of a specific character from the ends of your string. The following example trims all leading and trailing instances of the "#" character:

Dim myString As String = "#####Remove those!######"
Dim oneString As String
OneString = myString.Trim("#")

You can also add leading or trailing characters by using the String.PadLeft Method or the String.PadRight Method.

If you have excess characters within the body of your string, you can excise them by using the String.Remove Method, or you can replace them with another character using the String.Replace Method. For example:

Dim aString As String = "This is My Str@o@o@ing"
Dim myString As String
Dim anotherString As String
' myString = "This is My String"
myString = aString.Remove(14, 5)
' anotherString = "This is Another String"
anotherString = myString.Replace("My", "Another")

You can use the String.Replace method to replace either individual characters or strings of characters. The Visual Basic .NET Mid Statement can also be used to replace an interior string with another string.

You can also use the String.Insert Method to insert a string within another string, as in the following example:

Dim aString As String = "This is My Stng"
Dim myString As String
' Results in a value of "This is My String".
myString = aString.Insert(13, "ri")

The first parameter that the String.Insert method takes is the index of the character the string is to be inserted after, and the second parameter is the string to be inserted.

You can concatenate an array of strings together with a separator string by using the String.Join Method. Here is an example:

Dim shoppingItem(2) As String
Dim shoppingList As String
shoppingItem(0) = "Milk"
shoppingItem(1) = "Eggs"
shoppingItem(2) = "Bread"
shoppingList = String.Join(",", shoppingItem)

The value of shoppingList after running this code is "Milk,Eggs,Bread". Note that if your array has empty members, the method still adds a separator string between all the empty instances in your array.

You can also create an array of strings from a single string by using the String.Split Method. The following example demonstrates the reverse of the previous example: it takes a shopping list and turns it into an array of shopping items. The separator in this case is an instance of the Char data type; thus it is appended with the literal type character c.

The Visual Basic .NET Mid Function can be used to generate substrings of your string. The following example shows this functions in use:

Dim aString As String = "Left Center Right"
Dim rString, lString, mString As String
' rString = "Right"
rString = Mid(aString, 13)
' lString = "Left"
lString = Mid(aString, 1, 4)
' mString = "Center"
mString = Mid(aString, 6,6)

Substrings of your string can also be generated using the String.Substring Method. This method takes two arguments: the character index where the substring is to start, and the length of the substring. The String.Substring method operates much like the Mid function. An example is shown below:


There is one very important difference between the String.SubString method and the Mid function. The Mid function takes an argument that indicates the character position for the substring to start, starting with position 1. The String.SubString method takes an index of the character in the string at which the substring is to start, starting with position 0. Thus, if you have a string "ABCDE", the individual characters are numbered 1,2,3,4,5 for use with the Mid function, but 0,1,2,3,4 for use with the System.String function.

Private Sub PrepareControl(FindIt As String, CTRLtype As String, Optional Ar As String() = Nothing, Optional BoxPos As Int16 = 0)
For i As Integer = 1 To 10
Dim key = FindIt & i
Dim hits = Me.Controls.Find(key, True)
If hits.Length > 0 Then
Select Case CTRLtype
Case "labelClear"
Dim la = TryCast(hits(0), Label)
If la IsNot Nothing Then la.Visible = False
Case "textboxClear"
Dim tb = TryCast(hits(0), TextBox)
If tb IsNot Nothing Then tb.Visible = False
Case "textboxDataEntry"
Dim tb = TryCast(hits(0), TextBox)
If tb IsNot Nothing Then
With tb
.Visible = False
End With
End If
End Select
End If
Next
End Sub

PrepareControl("LAField", "labelClear") : PrepareControl("TXField", "textboxClear")
OR
PrepareControl("TXField", "textboxDataEntry", tboxSize, BoxPos)

---

In VB.NET, arrays are fixed-size once created, but you can make them dynamic by using ReDim (and optionally Preserve to keep existing data).
If you need a truly dynamic structure, you might use List(Of T) instead.

1. Dynamic Array with ReDim
VbnetModule Module1
Sub Main()
' Declare a dynamic array (no size yet)
Dim numbers() As Integer

' Set initial size (5 elements, index 0–4)
ReDim numbers(4)

' Assign values
For i As Integer = 0 To numbers.Length - 1
numbers(i) = i * 10
Next

' Resize array to hold more elements (keep old values)
ReDim Preserve numbers(9)

' Add new values
For i As Integer = 5 To numbers.Length - 1
numbers(i) = i * 10
Next

' Display all values
For Each num In numbers
Console.WriteLine(num)
Next
End Sub
End Module

Key points:

ReDim changes the size of the array.
Preserve keeps existing data; without it, the array is cleared.
Only the last dimension can be resized with Preserve.


2. Dynamic Multi-Dimensional Array
VbnetModule Module1
Sub Main()
' Declare a 2D array
Dim matrix(,) As Integer

' Initial size: 2 rows × 3 columns
ReDim matrix(1, 2)

' Fill values
For r As Integer = 0 To 1
For c As Integer = 0 To 2
matrix(r, c) = (r + 1) * (c + 1)
Next
Next

' Resize: only last dimension can be preserved
ReDim Preserve matrix(1, 4) ' Now 2 rows × 5 columns

' Display
For r As Integer = 0 To matrix.GetUpperBound(0)
For c As Integer = 0 To matrix.GetUpperBound(1)
Console.Write(matrix(r, c) & vbTab)
Next
Console.WriteLine()
Next
End Sub
End Module

? Limitation: You cannot Preserve more than the last dimension in a multi-dimensional array.

3. Recommended Alternative — List(Of T)
For truly dynamic resizing without ReDim limitations:
VbnetImports System.Collections.Generic

Module Module1
Sub Main()
Dim numbers As New List(Of Integer)

' Add elements dynamically
numbers.Add(10)
numbers.Add(20)
numbers.Add(30)

' Insert at specific position
numbers.Insert(1, 15)

' Remove element
numbers.Remove(20)

' Display
For Each num In numbers
Console.WriteLine(num)
Next
End Sub
End Module

? List(Of T) is more efficient and flexible than resizing arrays repeatedly.

If you want, I can show you a dynamic jagged array in VB.NET, which allows resizing each row independently — this avoids the Preserve limitation for multi-dimensional arrays.
Do you want me to prepare that example?

---

Read through entire array
For Each fruit As String In MV
Console.WriteLine(fruit)
Next

max number of elements array.length
For L = 0 To MV.GetUpperBound(0) elements stored



Either

Dim strings = New String() {"a", "b", "c"}
or

Dim strings() As String = {"a", "b", "c"}
or strings() As String = {}
should work