So when you start up visual basics for the first time you will probably want to start with just the regular windows basics form
when you start up your project you will see a small white box, with nothing on it.
Now at this stage your program will do absolutely nothing.
Now for your first piece of coding drag a button from the toolbox.
when you place your button down click on it once,to the right you will see an information box just above it will say button1
then double click button1 then type the following:

If Button1.Enabled = true then MsgBox("Hello im a button")

the words in parentheses and quotation marks is what you want to pop up when you press/enable the button.

Start a new form, then drag and drop from the toolbox WebBrowser
then add a button and a textbox and double click the button and type:

To start we must understand that visual basics is a coding langauge in it's own rights and was create by Microsoft
The term visual obviously refers the GUI/UI side of your program where as basic refers to the easy to use code, this easy coding was a stand out from other languages because certain things that were done in several lines of code on other languages could be done in under a sentence e.g. MsgBox("Hello").
Now Parts of coding Snippets.[spoil]im sorry i cannot explain this just yet as my visual basics programs are not working.Will be done with in a few hours.

http://www.youtube.com/watch?v=erh9GOJQwg4 too long to type...

Compilation of some of my simple visual basic snippets!
~Credits~
NextGen1
Me
MPGH Snippet List

[SIZE=4]WEB BROWSER SNIPPETS[/SIZE]
Search Function For Visual Basics(google)

WebBrowser1.Navigate("http://www.google.com/search?hl=en&q=" & TextBox2.Text & "&btnG=Google+Search")
'change "WebBrowser" to the name of your own browser.
Form1.Caption = "WebBrowser - Search Results"

YOUTUBE!

WebBrowser1.navigate("http://www.youtube.com/results?search_query=" & TextBox1.Text & "&aq=f")

This makes LinkLabels navigate to said web address.

If LinkLabel1.Enabled = True Then WebBrowser1.Navigate("Channge to address.")

Makes textbox rename to navigated webpage

Private Sub Navigate(ByVal address As String)

If String.IsNullOrEmpty(address) Then Return
If address.Equals("about:blank") Then Return
If Not address.StartsWith("http://") And _
Not address.StartsWith("https://") Then
address = "http://" & address
End If

Try
webBrowser1.Navigate(New Uri(address))
Catch ex As System.UriFormatException
Return
End Try

End Sub
Private Sub webBrowser1_Navigated(ByVal sender As Object, _
ByVal e As WebBrowserNavigatedEventArgs) _
Handles WebBrowser1.Navigated

TextBox1.Text = WebBrowser1.Url.ToString()

End Sub

OR

Private Sub Navigate(ByVal address As String)

webBrowser1.Navigate(address)

End Sub

Private Sub webBrowser1_Navigated(ByVal sender As Object, _
ByVal e As WebBrowserNavigatedEventArgs) _
Handles WebBrowser1.Navigated

TextBox1.Text = WebBrowser1.Url.absoluteuri

End Sub

[SIZE=4]Other Snippets[/SIZE]

Custom Opacity(See through or not)

Me.Opacity = 0.9

Get Computers Time(needs label)

Label1.text = My.Computer.Clock.LocalTime

Control Panel

Shell("rundll32.exe shell32.dll Control_RunDLL")

Turn PC Off

Shell ("Rundll32.exe user32.dll,LockWorkStation")

Log PC Off

Shell ("rundll32.exe shell32.exe,SHExitWindowsEx 0")

Display Wether or not you have a 32 or 64 bit processor

Dim x As String = Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE")
If x = "x86" Then
MsgBox("Processor is 32 Bit")
Else
MsgBox("Processor is 64 Bit")
End If

[SIZE=4]Exetreme Basics For teh Nubs[/SIZE]
Make it so when Button1(Changeable)is clicked you will get a message saying what ever you put in parentheses.

If Button1.Enabled=True Then MsgBox("W/E you want to say")

Gets PC Information

Public Function GetSystemInfo() As String
Dim win As String = My.Computer.Info.OSFullName
Dim virMem As String = My.Computer.Info.TotalVirtualMemory
Dim winVer As String = My.Computer.Info.OSVersion
Return MsgBox("Your Current OS is: " & win _
& vbNewLine _
& "Your OS Version is: " & winVer _
& vbNewLine _
& "Your Total Virtual Memory is: " & virMem)
End Function

Make PC Beep (Needs to be added to buttons code)

Console.Beep()

or

Microsoft.VisualBasic.Interaction.Beep()

Process List
1. add a listbox to your form
2. double click on the form and insert this code

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim p As Process
For Each p In System.Diagnostics.Process.GetProcesses
ListBox1.Items.Add(p.ProcessName)
Next
End Sub

More coming sorry...