Posts by codeorder

Why use a "StreamReader" to "WRITE" to a File?
Have you tried using a Stream"WRITER"?

Dim ioFile As New StreamWriter(myStream)'<---------------------------ERROR WAS HERE
                ioFile.Write(text) '<---------------------------AND HERE
                ioFile.Close()

Under those circumstances, declaring your "id" at a Class Level, seems appropriate.
I just thought I would offer a suggestion about using a Static Declaration within a Sub Procedure.

A Global Declaration should be used for what it is.
There is no reason to add your "id" with the rest of the Global Declarations if only used once.

I would also add my "id" in the "public sub pull_data" if that Sub Procedure ends up having to use the "id" to process code.
If your "public sub pull_data" is needed for other results, not just for when the "id" is needed, Declaring something like "Static id as integer = newid" within that Sub Procedure should keep account for the "id"'s value.

Public Sub pull_data(Optional ByVal newid As Integer = 0)
        Static id As Integer = newid
        ' MsgBox(id)
        'select whatever from whatever where id = id
    End Sub

Unless you plan to reuse your "id" Integer from multiple Forms, method #2 is probably the best way to go about it.

Confusing to understand since both, the line with spaces and the line that should be read as, contain spaces.:D

See if this helps otherwise.

Dim sTemp As String = "12 25.53 35" '// your String.
        sTemp = sTemp.Replace(" ", "") '// replace space with nothing.
        MsgBox(sTemp) '// display result.

employeeform.dtbday.Text = Format(CDate(("Birthday").ToString), "MM/dd/yyyy")
Conversion from string "Birthday" to type 'Date' is not valid.

employeeform.dtbday.Text = Format(CDate((ListView2.SelectedItems.Item(0).SubItems(4).Text).ToString), "MM/dd/yyyy")

the items in the listview should be display in the textboxes in the other form whenever i click select data

See if this helps.

Private Sub ListView2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView2.Click
        If Not ListView2.SelectedItems.Count = 0 Then '// check if item is selected.
            With ListView2.SelectedItems.Item(0)
                Form2.TextBox1.Text = .Text '// column 1.
                Form2.TextBox2.Text = .SubItems(1).Text '// column 2.
                Form2.TextBox3.Text = .SubItems(2).Text '// column 3.
                Form2.TextBox4.Text = .SubItems(3).Text '// column 4.
                '// etc...
            End With
            'Form2.ShowDialog()
        End If
    End Sub

Form2 has 4 TextBoxes for the first few Columns.

Adding more TextBoxes and using the "ListView2.SelectedItems.Item(0).SubItems(#).Text" will get your TextBoxes loaded with the SelectedItem's values.

You can always add images to your Application's Resources.
..File Menu / Project / "your application's name" Properties.
....Resources Tab, top Button for "Add Resource", click Drop-Down arrow, select "Add Existing File...", and load your images.

To access them, view the following code sample.
This code is from me adding 2 images to my Resources, "green.png" and "red.png".

Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
        Button1.BackgroundImage = My.Resources.green
    End Sub

    Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
        Button1.BackgroundImage = My.Resources.red
    End Sub

Adding images as a Resource will keep them stored within your Application.

Its up to you to decide on how strong a password is.

This will tell you how many uppercase, lowercase, numbers, and non numbers are in the password. You'll have to decide on what percentage of each is a strong password.

No one can decide for you what a "strong" password is.

You could add all the numbers up and depending on the total, set the color of your Label.
Not a very good approach, but a start.

Here is a code sample with a slightly modified version of Unhnd_Exception's code.

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim t As String = TextBox1.Text
        Dim iUpper, iLower, iNumbers, iOther As Integer
        For i As Integer = 0 To t.Length - 1 '// Loop thru all Characters in TextBox1.Text
            If Char.IsLetter(t(i)) Then
                If Char.IsUpper(t(i)) Then : iUpper += 2 '// 2 Points for UpperCase.
                Else : iLower += 1 '// 1 Point for LowerCase.
                End If
            ElseIf Char.IsNumber(t(i)) Then : iNumbers += 3 '// 3 Points for #'s.
            Else : iOther += 5 '// 5 Points for Special Charaters.
            End If
        Next

        Dim iSetTotal As Integer = iUpper + iLower + iNumbers + iOther '// sum Total.
        If iSetTotal <= 5 Then Label1.BackColor = Color.Red '// if Less than 6.
        If iSetTotal > 5 AndAlso iSetTotal <= 10 Then Label1.BackColor = Color.Orange '// if Greater than 5 and less that 11.
        If iSetTotal > 10 Then Label1.BackColor = Color.Green '// if Greater …

I would use the _TextChanged Event.

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim t As String = TextBox1.Text
        '// Remaining code here.
    End Sub

In Form1, when calling Form2, remove "Me" from this line:
Form2.Show(Me)

Final result:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
  End Sub

Here is something for Arguments.

In the application you want to load with Arguments, in Form_Load add similar code.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each myCoolArg As String In My.Application.CommandLineArgs
            Select Case myCoolArg
                Case "bgSteelBlue"
                    Me.BackColor = Color.SteelBlue
                Case "bgSpringGreen"
                    Me.BackColor = Color.SpringGreen
            End Select
        Next
    End Sub

The above code is for your .exe application.

Now, to load the above .exe application and change the Background Color, all you have to do is use this code.

Process.Start("C:\Users\codeorder\Desktop\vb.net\WindowsApplication1\WindowsApplication1\bin\Debug\WindowsApplication1.exe", "bgSteelBlue")

Of course, the path of your .exe's application should be edited for the above code to work.

Also, if you create a Shortcut for your .exe application that has Argument(s) options, right click the Shortcut, select Properties, and modify the "Target" textbox to contain a blank space and your argument.

C:\Users\codeorder\Desktop\vb.net\WindowsApplication1\WindowsApplication1\bin\Debug\WindowsApplication1.exe bgSpringGreen

Hope this helps.

See if this helps.

The link you posted returns invalid.
Page Not Found

Try posting the entire <html> source code of that web-page and specify if to use a WebBrowser to retrieve the information, or extract without a WebBrowser.

Glad that there is finally some other input to this thread. :)

About me naming something like "s1", instead of "strSomething", it is only done for personal projects after all the code has been approved for publishing, by me of course.

I am currently working on quite a few projects with other programmers and we do try and keep a set standard of code rules, as "str" for "String", "i" for "Integer", etc.
I have now moved to using just "s" instead of "str". Seems more reasonable for my coding and locating Strings with IntelliSense, especially since "Str" is already part of vb.net.

Also, for all my Menu options, I have a standard way of Naming them.
Example for File/Save:
mSave_File
Example for Edit/Copy:
mCopy_Edit

"m" is for Menu, Save or Copy for the option, and _File or _Edit for the category that option can be located in.

This Menu style of naming controls also is of use for TabControls that contain similarly named controls.
Example for a TextBox:
txtSomeTextBox_tab1
and,
txtSomeTextBox_tab2.

....
The main reason for me getting so fired up about my first post was mostly for having another programmer criticize another, especially for something like a Variable name. Although I must agree, some good came from it. :D

Btw, that "other" programmer, does not name all of his controls the same way, does he?
Like: TextBoxSomeTextBox, CheckedListBoxSomeCheckedListBox?
or …

See if this helps.

'//----------- Pre-requisites: 3 Buttons, 1 RichTextBox. ---------------\\
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "New"
        Button2.Text = "Open"
        Button3.Text = "Save" : Button3.BackColor = Color.LightGreen
        RichTextBox1.Tag = "new" '// set .Tag to determine as New File.
    End Sub
    '// new file.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Clear() '// clear RichTextBox.
        RichTextBox1.Tag = "new" '// set .Tag to determine as New File.
        Button3.BackColor = Color.LightGreen
    End Sub
    '// open file.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ofd As New OpenFileDialog
        ofd.Filter = "RTF Files (*.rtf)|*.rtf|TXT Files (*.txt)|*.txt|All Files (*.*)|*.*"
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            If ofd.FileName.ToLower.EndsWith(".rtf") Then '// determine if a .RTF File.
                RichTextBox1.LoadFile(ofd.FileName, RichTextBoxStreamType.RichText)
            Else
                RichTextBox1.LoadFile(ofd.FileName, RichTextBoxStreamType.PlainText)
            End If
            RichTextBox1.Tag = ofd.FileName '// set .Tag to FileName.
            Button3.BackColor = Color.LightGreen
        End If
    End Sub
    '// save file.
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Not RichTextBox1.Tag = "new" Then '// check if .Tag is NOT a NEW File.
            If RichTextBox1.Tag.ToString.ToLower.EndsWith(".rtf") Then '// determine if a .RTF File.
                RichTextBox1.SaveFile(RichTextBox1.Tag.ToString, RichTextBoxStreamType.RichText)
            Else
                RichTextBox1.SaveFile(RichTextBox1.Tag.ToString, RichTextBoxStreamType.PlainText)
            End If
            Button3.BackColor = Color.LightGreen
            MsgBox("File Saved.")
            Exit Sub '// skip the SaveFileDialog.
        End If

        Dim sfd As New SaveFileDialog
        sfd.Filter = "RTF Files (*.rtf)|*.rtf|TXT Files (*.txt)|*.txt|All Files (*.*)|*.*"
        If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
            If sfd.FileName.ToLower.EndsWith(".rtf") Then '// determine if a .RTF File.
                RichTextBox1.SaveFile(sfd.FileName, RichTextBoxStreamType.RichText)
            Else
                RichTextBox1.SaveFile(sfd.FileName, RichTextBoxStreamType.PlainText)
            End If
            RichTextBox1.Tag = sfd.FileName …

Let's take the "other" programmer's example and see what results we get.

Dim stringSomething As String = "some string"
stringSomething = "some other string"
MsgBox(stringSomething)

Total characters: 109

Now let's take "your" example.

Dim strSomething As String = "some string"
strSomething = "some other string"
MsgBox(strSomething)

Total characters: 100

... Now, 9 characters difference is not a big deal, but when constantly reused, "it is a big deal".
Here are a few reasons why.

1. The less code for an application to locate and process, the quicker the application. Correct?
2. The less time you waste typing extra "unnecessary" characters, the quicker you get results done. Correct?
3. The less time your application takes to respond to some code, the less "electricity" used. Correct?
4. The less electricity used, the more we have to offer to the future of our world, resources wise. Correct?
... This not only pertains to "electricity", but everything else, including hard-drive space, less usage of processor(s), among all that relates to a computer.
... If needed be said, the resources we use while typing "unnecessary" characters should also be taken in consideration. Food, water, etc.
5. The less time "the rest of the world" wastes to download/install your "extra characters", ... You do the math.

Overall, I can probably write an entire book on this thread topic alone.:D
But personally, I think that I have provided all the information needed within …

Dim myCoolTimeDate As String = Format(DateTime.Now, "hh:mm:ss tt MM/dd/yy")
        MsgBox(myCoolTimeDate)

See if this helps. (code originated from here)

Public Class Form1

    Private Declare Function GetDC Lib "user32" (ByVal hwnd As Integer) As Integer
    Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As IntPtr, ByVal lpRect As IntPtr, ByVal bErase As Boolean) As Boolean
    Private WithEvents myTimer As New Timer With {.Interval = 100, .Enabled = True}

    Private Sub drawOnDesktop()
        Dim HDC As Integer = GetDC(0)
        Dim myGraphics As Graphics = Graphics.FromHdc(HDC)
        Dim myPen As New Pen(Color.Chartreuse, 30) '// set pen color and width.
        myGraphics.DrawLine(myPen, 150, 255, 650, 255) '// (preset pen, startLocation.X, startLocation.Y, endLocation.X, endLocation.Y)
        myGraphics.DrawLine(myPen, 150, 355, 650, 355) '// (preset pen, startLocation.X, startLocation.Y, endLocation.X, endLocation.Y)
        myGraphics.Dispose()
    End Sub

    Private Sub myTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles myTimer.Tick
        Me.drawOnDesktop()
    End Sub

    Private Sub clearDesktopDrawing()
        InvalidateRect(IntPtr.Zero, IntPtr.Zero, False)
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Me.clearDesktopDrawing()
    End Sub
End Class

:)

See if this helps.

See if this helps for the "second part".

Sub bckWrd(ByVal x() As Integer, ByVal y() As Integer, ByVal sr As IO.StreamReader)
        sr = IO.File.OpenText("D:\digits.txt") '///opens file
        Dim count As Integer = 0
        Do Until (count = 10)
            x(count) = sr.ReadLine
            '//////////// -- ListBox.Items.Add Code Removed.
            count += 1 '// added last.
        Loop
        '/////////////////////////-- loop thru all of the x arrays backwards.
        For i As Integer = 9 To 0 Step -1
            ListBox1.Items.Add(x(i)) '// add x(array number)
        Next
        '////////////////////////
    End Sub

I used the same code that you use for the

Sub read(ByRef x() As Integer, ByRef sr As IO.StreamReader)

with just a few slight modifications.

If you do not want to use a "For/Next" loop, you can replace it in the above code with a "Do Until/Loop".

'/////////////////////////-- loop thru all of the x arrays backwards.
        count = 9
        Do Until count = 0
            ListBox1.Items.Add(x(count))
            count -= 1 '// added last.
        Loop
        '////////////////////////

Since the pages you want to retrieve data from are in total of over 15 thousand, I would use Net.HttpWebResponse to retrieve the innerHtml of a web-page instead of using a WebBrowser.
This way you do not overload your Temporary Internet Files folder with Files that you have no use for.

Using Net.HttpWebResponse, you should be able to locate and extract the IDs and also extract the Total Pages from that first page.
Then just add +=1 and extract next page until you are at the Total number of pages available.

See if this helps for "the first part".

Public Class Form1
    '/////////////////////////////-- array for 10 Integers.
    Dim x(9) As Integer '///Array for the numbers is order
    '//////////////////////////
    Dim y() As Integer '///array for the reversed numbers
    Dim z() As Integer '///array for the average
    Dim sr As IO.StreamReader

    Sub read(ByRef x() As Integer, ByRef sr As IO.StreamReader)

        sr = IO.File.OpenText("D:\digits.txt") '///opens file
        Dim count As Integer = 0

        Do Until (count = 10)
            x(count) = sr.ReadLine
            ListBox1.Items.Add(x(count)) '///Display x value 
            '///////////////////////////
            count += 1 '// added last.
            '/////////////////////////
        Loop

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        read(x, sr)
    End Sub

End Class

Just for references, "please test the solution provided before re-asking your question".
Thank you.

If you re-size the Panel to the Label's size, it should show scroll-bars on the Panel once you add more than one line of text in the Label.

Add a Panel to your Form, set "AutoScroll" in Panel's Properties to "True" and place your Label inside the Panel.

See if this helps.

For Each myCoolTab As TabPage In TabControl1.TabPages
            ListBox1.Items.Add(myCoolTab.Text)
        Next

...Why the "The login is wrong!" is appearing?...

The reason is because you are not logged in when you first load that web-page.

See if this helps about checking if you have already attempted to Log In.

Private websiteAlreadyAccessed As Boolean = False '// determine if webpage has been accessed.

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If WebBrowser1.Url.AbsoluteUri = "https://steamcommunity.com/login/" Then
            WebBrowser1.Document.GetElementById("steamAccountName").SetAttribute("Value", "gogost")
            WebBrowser1.Document.GetElementById("steamPassword").SetAttribute("Value", "gogost")
            WebBrowser1.Document.Forms(1).InvokeMember("submit")
        End If

        If Me.WebBrowser1.DocumentText.Contains("LogOut") Then
            MsgBox("The login is ok!")
        Else
            '// check if web-page has been visited and display result if there was already an attempt to LogIn.
            If websiteAlreadyAccessed = True Then MsgBox("The login is wrong!")
        End If
        websiteAlreadyAccessed = True '// set to True once first loading the web-page.
    End Sub

See if this helps.

Dim startDate As Date = "10/09/10" '// preset Start Date.
        Dim endDate As Date = "10/25/10" '// preset End Date.
        Dim tempDate As Date = "10/23/10" '// Date that is currently being searched and compared to Start/End Dates.
        If tempDate > startDate And tempDate < endDate Then '// check if greater than startDate and lower than endDate.
            MsgBox("Date matches the preset time span.", MsgBoxStyle.Information)
        Else
            MsgBox("Incorrect Date located.", MsgBoxStyle.Critical)
        End If

Hope this helps anyone else searching for a similar solution.
Re: need to save and load a listview item and 5 subitems how do i do it?

See if this helps.

Public Class Form1

    Private myCoolFile As String = "C:\test.txt" '// your File to Save/Load from.

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        '//------ Save File ------------------------------------------\\
        Dim myWriter As New IO.StreamWriter(myCoolFile)
        For Each myItem As ListViewItem In ListView1.Items '// loop thru all items in ListView.
            With myItem
                '// write Item & "#" & SubItems... "#" is used for when loading each line and splitting it into arrays.
                myWriter.WriteLine(myItem.Text & "#" & .SubItems(1).Text & "#" & .SubItems(2).Text & "#" _
                                   & .SubItems(3).Text & "#" & .SubItems(4).Text & "#" & .SubItems(5).Text)
            End With
        Next
        myWriter.Close()
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '// customize ListView.
        ListView1.View = View.Details
        With ListView1.Columns
            '// .Add(column name, column width)
            .Add("column 1", 75) : .Add("column 2", 75) : .Add("column 3", 75) : .Add("column 4", 75)
            .Add("column 5", 75) : .Add("column 6", 75)
        End With
        '//------ Load File ------------------------------------------\\
        If IO.File.Exists(myCoolFile) Then '// check if File exists.
            Dim myCoolFileLines() As String = IO.File.ReadAllLines(myCoolFile) '// load your File as a string array.
            For Each line As String In myCoolFileLines '// loop thru array list of File lines.
                Dim lineArray() As String = line.Split("#") '// separate by "#" character.
                Dim newItem As New ListViewItem(lineArray(0)) '// add text Item.
                With newItem.SubItems
                    .Add(lineArray(1)) '// add SubItem 1.
                    .Add(lineArray(2)) '// add SubItem 2.
                    .Add(lineArray(3)) '// add SubItem 3.
                    .Add(lineArray(4)) '// add SubItem 4.
                    .Add(lineArray(5)) '// add SubItem 5.
                End With
                ListView1.Items.Add(newItem) '// add Item to ListView. …

See if this helps.

For Each lvItem As ListViewItem In ListView1.Items
            If lvItem.Checked = True Then
                Dim newLvItem As New ListViewItem(lvItem.Text)
                '//-- if it contains subitems. --\\
                'newLvItem.SubItems.Add(lvItem.SubItems(1).Text)
                'newLvItem.SubItems.Add(lvItem.SubItems(2).Text)
                ListView2.Items.Add(newLvItem)
                ListView1.Items.Remove(lvItem)
            End If
        Next

Check out this thread.
Save/Load Listview Items + Subitems

Select Case buttonPressed.Name
            Case "Button1"
                MsgBox("Button1 clicked.")
            Case "Button2"
                MsgBox("Button2 clicked.")
            Case Else
                MsgBox("Unknown Button clicked.")
        End Select

Just for references, you can also select by Index.

TabControl1.SelectedIndex = 1 '// select TabPage2.

See if this helps for calling certain events.

'//-------- Pre-requisites: 1 Button, 1 Timer. ----------\\
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "1"
        Timer1.Start()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Text += 1
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Button1_Click(sender, e) '// call event.
    End Sub
End Class

And this for calling procedures.

'//-------- Pre-requisites: 1 Timer. ----------\\
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "1"
        Timer1.Start()
    End Sub

    Private Sub someProcedure()
        Me.Text += 1
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.someProcedure() '// call procedure.
    End Sub
End Class

Btw, welcome to vb.net forum. :)

My previously posted code will only "convert" the files from .txt to .csv in a specified folder.

The code loads each .txt file from a folder into a temporary TextBox and saves that loaded text with the same FileName and a new File extension, .csv in this case.

See if this helps.

Public Class Form1
    
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.google.com/firefox?client=firefox-a&rls=org.mozilla:en-US:official")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If WebBrowser1.Url.AbsoluteUri = "http://www.google.com/firefox?client=firefox-a&rls=org.mozilla:en-US:official" Then
            MsgBox("Web-page located.", MsgBoxStyle.Information)
        End If
    End Sub
End Class

See if this helps.

'// original .txt Folder with .txt Files.
        Dim myTXT_folder As String = "C:\tempTXT\"
        '// .csv Folder to save Files to.
        Dim myCSV_folder As String = "C:\tempCSV\"
        '// create a temporary TextBox.
        Dim tempTextBox As New TextBox With {.Multiline = True}
        '// loop thru the .txt Files Folder.
        For Each myTXT_File As String In My.Computer.FileSystem.GetFiles _
                                            (myTXT_folder, FileIO.SearchOption.SearchTopLevelOnly, "*.txt")
            '// load .txt File in your temporary TextBox.
            tempTextBox.Text = IO.File.ReadAllText(myTXT_File)
            '// save temporary TextBox text as new .csv File and keep the same File Name.
            IO.File.WriteAllText(myCSV_folder & IO.Path.GetFileNameWithoutExtension(myTXT_File) & ".CSV", tempTextBox.Text)
        Next
        MsgBox("Done.", MsgBoxStyle.Information) '// display confirmation when done.
        tempTextBox.Dispose() '// dispose of the temporary TextBox.

See if this helps.

I do not/have not coded any SQL server applications, so I am not certain if a problem could occur from SQL, but...
The operating system you are trying to install your software to might not have the appropriate .NET Framework installed as the .NET Framework you have designed your application to use.

A simple solution to checking which .NET Framework is installed on "the other" computer, is to use Internet Explorer and paste the following in the address bar.

javascript:alert(navigator.userAgent)

Then check for all the .NET #.#.

See if this helps.

'//------ Pre-requisites: 1 Button, 2 ComboBoxes. ----------\\
Public Class Form1
    
    Private myScoreArray() As Integer = {"2", "4", "6", "8", "10"} '// set scores here.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '// display result by using .SelectedIndex to select an array from "myScoreArray".
        MsgBox(myScoreArray(ComboBox1.SelectedIndex) + myScoreArray(ComboBox2.SelectedIndex))
    End Sub
End Class

...and IF there is a better way DONT write all the code for me...

Sometimes easier to write code "for me". :D

Click on a user's name, select the "Friends" tab at the very top and click "Befriend 'username'".

See if this helps.

Public Class Form1
    Private myCoolFile As String = "c:\some old.bat" '// original string.
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        myCoolFile = "c:\something.bat" '// new string.
        MsgBox(myCoolFile) '// display string.
        End
    End Sub
End Class

Here is something to get started with using a ListView.

'// customize.
        ListView1.View = View.Details '// delete "Details" for other options from IntelliSense.
        ListView1.CheckBoxes = True '// add checkboxes.
        ListView1.FullRowSelect = True '// select entire row when SubItems are listed.
        ListView1.LabelEdit = True '// edit the item's value.
        ListView1.GridLines = True '// show grid lines.
        ListView1.AllowColumnReorder = True '// rearrange columns.
        ListView1.Sorting = SortOrder.Ascending '// alphabetize.
        '// add columns.
        ListView1.Columns.Add("Column 1", 150)
        ListView1.Columns.Add("Column 2", 150)
        ListView1.Columns(0).DisplayIndex = 1 '// rearrange columns.

        ListView1.Font = New Font("Verdana", 12) '// change font.
        ListView1.ForeColor = Color.WhiteSmoke  '// change forecolor.
        ListView1.BackColor = Color.SlateGray  '// change backcolor.

        '// add items.
        ListView1.Items.Add("item 1")
        ListView1.Items(0).SubItems.Add("subitem for 1")
        ListView1.Items.Add("item 2")
        ListView1.Items(1).SubItems.Add("subitem for 2")
        ListView1.Items(1).Font = New Font("Webdings", 16) '// change single item's font.
        ListView1.Items(1).ForeColor = Color.LightSteelBlue   '// change single item's forecolor.
        ListView1.Items(1).BackColor = Color.LightSeaGreen   '// change single item's backcolor.
        ListView1.Items.Add("item 3")
        ListView1.Items(2).SubItems.Add("subitem for 3")

When working with Files, you should always check if the File exists.

Dim myCoolFile As String = "c:\something.bat" '// your file.

        If IO.File.Exists(myCoolFile) Then '// check if File exists.
            Process.Start(myCoolFile)
        Else '// if File does not exist...
            MsgBox("File Does Not Exist.", MsgBoxStyle.Critical) '// display message.
        End If

As for "cmd.exe", see if this helps.

See if this helps.

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If TextBox1.TextLength = 0 Then '// check if TextBox is empty.
            If Not e.KeyChar = "8" Then '// if not "8".
                e.Handled = True '// cancel the key pressed.
                MsgBox("First character is not 8.", MsgBoxStyle.Critical) '// display message.
            End If
        End If
    End Sub

See if this helps.

Public Class Form1

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim myGraphics As Graphics = e.Graphics
        '// draw Dots.
        Dim myDotPen As New Pen(Color.SteelBlue, 10) '// set DOT pen color and width.
        myGraphics.DrawEllipse(myDotPen, 25, 25, 10, 10) '// (preset pen, location.X, location.Y, width, height)
        myGraphics.DrawEllipse(myDotPen, 75, 25, 10, 10) '// (preset pen, location.X, location.Y, width, height)
        myGraphics.DrawEllipse(myDotPen, 125, 25, 10, 10) '// (preset pen, location.X, location.Y, width, height)
        '// draw Line.
        Dim myLinePen As New Pen(Color.SpringGreen, 5) '// set LINE pen color and width.
        myGraphics.DrawLine(myLinePen, 28, 30, 132, 30) '// (preset pen, startLocation.X, startLocation.Y, endLocation.X, endLocation.Y)
        '// dispose if not needed.
        myGraphics.Dispose() : myDotPen.Dispose() : myLinePen.Dispose()
    End Sub
End Class

Since you are not adding numbers, but "adding to something", use the & character instead.
txtTapeList.Text &= vbNewLine

Final code with setting the cursor to a preset location.

If txtTapeList.Text.EndsWith("L3") Then
            txtTapeList.Text &= vbNewLine
            txtTapeList.Select(txtTapeList.TextLength, 1)'// "txtTapeList.TextLength" = start Index.
        End If