Codenstuff.com

Imports System.IO
ListBox1.Items.AddRange(System.IO.Directory.GetLogicalDrives)

TextBox1.Text = TextBox1.Text.ToUpper TextBox1.Text = TextBox1.Text.ToLower TextBox1.Text = StrConv(TextBox1.Text, VbStrConv.ProperCase)

Dim SAPI
SAPI = CreateObject("SAPI.spvoice")
SAPI.Speak(TextBox1.Text)

Dim fileReader As System.IO.StreamReader
fileReader =
My.Computer.FileSystem.OpenTextFileReader("C:\\testfile.txt")
Dim stringReader As String
stringReader = fileReader.ReadLine()
MsgBox("The first line of the file is " & stringReader)

Dim fileReader As String
fileReader = My.Computer.FileSystem.ReadAllText(My.Computer.FileSystem.SpecialDirectories.Desktop & "\Document.txt",
System.Text.Encoding.UTF32)
TextBox1.Text = fileReader

Color.FromArgb(155, 195, 231)
Bonus: Here are some of my favourite RGB colours. They look nice.
0 155 72
65 105 255
0 105 170

Me.Size = New Size(0, 0)

For Each frm As Form in Application.OpenForms
frm.WindowState = FormWindowState.Minimized
Next frm

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Timer1.Start()
Randomize()
Dim val As Integer = CInt(Int((1000 * Rnd()) + 1))
TextBox1.Text += val & vbCrLf
End Sub

Public answer As Integer = 12
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim question, title As String 'declare our string variables to hold the question and title
Dim test As Object 'this is our object that will become the inputbox and display the question and title
question = "What is 2 + 10?" 'set the question
title = "Answer the question!" 'set the title
test = InputBox(question, title) 'display the input box
If test = answer Then 'test answer
MsgBox("Correct!")
Else
MsgBox("Incorrect! It was 12")
test = InputBox(question, title)
End If
End Sub