https://www.codeproject.com/KB/books/vbdotnetkickstart.aspx

Private Function GenerateVBStringBuilderCode() As String
Dim s As String
Dim sb As New StringBuilder(5000)
'Append StringBuilder declaration
sb.Append("Dim sb As New System.Text.StringBuilder(5000)")
sb.Append(vbCrLf)
For Each s In Me.tbSource.Lines
'Append each line
sb.Append("sb.Append(""")
sb.Append(EscapeString(s))
sb.Append(""")")
sb.Append(vbCrLf)
If Me.cbPreserveCRLF.Checked Then
'Append a vbCrLf if new lines are to be preserved
sb.Append("sb.Append(vbCrLf)")
sb.Append(vbCrLf)
End If
Next
Return sb.ToString
End Function

Private Function GenerateCSharpStringBuilderCode() As String
Dim s As String
Dim sb As New StringBuilder(5000)
'Append StringBuilder declaration
sb.Append("System.Text.StringBuilder sb = new System.Text.StringBuilder(5000);")
sb.Append(vbCrLf)
For Each s In Me.tbSource.Lines
'Append each line
sb.Append("sb.Append(@""")
sb.Append(EscapeString(s))
sb.Append(""");")
sb.Append(vbCrLf)
If Me.cbPreserveCRLF.Checked Then
'Append a vbCrLf if new lines are to be preserved
sb.Append("sb.Append(Environment.NewLine);")
sb.Append(vbCrLf)
End If
Next
Return sb.ToString
End Function

Private Sub CopyToClipboard()
'Put the generated code on the clipboard
Try
Clipboard.SetDataObject(Me.tbResult.Text)
Catch
MessageBox.Show("The code could not be copied to the clipboard.", "Error Copying to Clipboard", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
End Try
End Sub

Private Function EscapeString(ByVal source As String) As String
'Escape(double) any quotes that appear in the text
If Not source Is Nothing Then
Return source.Replace("""", """""")
Else
Return String.Empty
End If
End Function

Private Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click
If Me.rbVB.Checked Then
Me.tbResult.Text = Me.GenerateVBStringBuilderCode
Else
Me.tbResult.Text = Me.GenerateCSharpStringBuilderCode
End If
End Sub

Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopy.Click
Me.CopyToClipboard()
End Sub

https://www.knowdotnet.com/windowsforms.html

https://www.vbdotnetheaven.com/UploadFile/mahesh/ReportViewerControl09062007051533AM/ReportViewerControl.aspx

https://www.eggheadcafe.com/searchform.aspx?search=undo%20redo%20comm%20f%20textbox%20%20in%20VB.net%202008

https://www.microsoft.com/student/en/US/default.aspx#career

https://msdn.microsoft.com/en-us/beginner/cc979165.aspx

https://dev.mysql.com/tech-resources/articles/ebonat-load-and-search-mysql-data-using-vbnet-2005.html

https://www.dreamincode.net/forums/topic/68848-how-to-add-delete-and-update-database-using-datagridview/

https://www.telerik.com/help/wpf/radtreeview-how-to-enable-horizontal-vertical-scrollbar.html

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.DisplayMember = "ProcessName"

' Load info on all running processes in the ListBox control.
Dim p As Process
For Each p In Process.GetProcesses
ListBox1.Items.Add(p)

Next


End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName(ListBox1.Text)
For Each p As Process In pProcess
p.Kill()
Next


End Sub