fileDialogBox.Filter = "Text Files (*.txt)|*.text|" _
	    & "Word Documents (*.doc;*.docx)|*.doc;*.docx|" _
	    & "boot.ini (boot.ini)|boot.ini|" _
	    & "All text files beginning with the letter A (a*.txt)|a*.txt|" _
	    & "All files beginning with accesslog* (accesslog*)|accesslog*|" _
	    & "All Files(*.*)|"

'This code was developed by Gerardo Lopez and was downloaded from www.brangle.com
'Complete source code is available at:
'http://www.brangle.com/wordpress/2009/09/howto-use-the-openfiledialog-box-in-vbnet/
 
'This was declared as a function because I want to be able to return a filename
'the filename will be returned as a string
Public Function OpenFile() As String
	'declare a string, this is will contain the filename that we return
	Dim strFileName = ""
	'declare a new open file dialog
	Dim fileDialogBox As New OpenFileDialog()
 
	'add file filters, this step is optional, but if you notice the screenshot
	'above it does not look clean if you leave it off, I explained in further
	'detail on my site how to add/modify these values
	fileDialogBox.Filter = "Rich Text Format (*.rtf)|*.rtf|" _
	    & "Text Files (*.txt)|*.txt|" _
	    & "Word Documents (*.doc;*.docx)|*.doc;*.docx|" _
	    & "Image Files (*.bmp;*.jpg;*.gif)|*.bmp;*.jpg;*.gif|" _
	    & "All Files(*.*)|"
	'this sets the default filter that we created in the line above, if you don't 
	'set a FilterIndex it will automatically default to 1
	fileDialogBox.FilterIndex = 3
	'this line tells the file dialog box what folder it should start off in first
	'I selected the users my document folder
	fileDialogBox.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
 
	'Check to see if the user clicked the open button
	If (fileDialogBox.ShowDialog() = DialogResult.OK) Then
	    strFileName = fileDialogBox.FileName
	'Else
	'   MsgBox("You did not select a file!")
	End If
 
	'return the name of the file
	Return strFileName
End Function
 
 
Private Sub btnOpenFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenFile.Click
	'declare a string to the filename
	Dim strFileNameAndPath As String = OpenFile()
 
	'check to see if they selected a file or just clicked cancel
	If (strFileNameAndPath = "") Then
	    'Chastise the user for not selecting a file :)
	    MsgBox("You did not select a file!")
	Else
	    'Begin doing whatever it is you would normally do with the file!
	    MsgBox("You selected this file: " & strFileNameAndPath & vbCrLf & _
		   "The filename is: " & System.IO.Path.GetFileName(strFileNameAndPath) & vbCrLf & _
		   "Located in: " & System.IO.Path.GetDirectoryName(strFileNameAndPath) & vbCrLf & _
		   "It has the following extension: " & System.IO.Path.GetExtension(strFileNameAndPath) & vbCrLf & _
		   "The file was created on " & System.IO.File.GetCreationTime(strFileNameAndPath) & vbCrLf & _
		   "The file was last written to on " & System.IO.File.GetLastWriteTime(strFileNameAndPath) _
	    )
	End If
End Sub

'This code was developed by Gerardo Lopez and was downloaded from www.brangle.com
'Complete source code is available at:
'http://www.brangle.com/wordpress/2009/08/how-to-use-the-progress-bar-in-vb-net-and-c-sharp/
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'Set the total number of steps to 100 (or 100%)
    ProgressBar1.Maximum = 100
    'Set the initial value of the progress bar to 0% completed
    ProgressBar1.Value = 0
    'If your progress bar is already visible you don't need this. But this is one of those objects I like to hide when I'm not using it
    ProgressBar1.Visible = True
    'This next line tells your application to wait or go to sleep for 1000ms / 1 second
    System.Threading.Thread.Sleep(1000)
    'Update the progress bar to 15% completed
    ProgressBar1.Value = 15
    'Wait for another second
    System.Threading.Thread.Sleep(1000)
    'Update to 30% complete
    ProgressBar1.Value = 30
    System.Threading.Thread.Sleep(1000)
    ProgressBar1.Value = 45
    System.Threading.Thread.Sleep(1000)
    ProgressBar1.Value = 60
    System.Threading.Thread.Sleep(1000)
    ProgressBar1.Value = 75
    System.Threading.Thread.Sleep(1000)
    ProgressBar1.Value = 90
    System.Threading.Thread.Sleep(1000)
    ProgressBar1.Value = 100
    MsgBox("Complete!")
    ProgressBar1.Visible = False
End Sub

//This code was developed by Gerardo Lopez and was downloaded from www.brangle.com
//Complete source code is available at:
//http://www.brangle.com/wordpress/2009/08/how-to-use-the-progress-bar-in-vb-net-and-c-sharp/
 
private void button1_Click(object sender, EventArgs e)
{
    //Set the total number of steps to 100 (or 100%)
    progressBar1.Maximum = 100;
    //Set the initial value of the progress bar to 0% completed
    progressBar1.Value = 0;
    //If your progress bar is already visible you don't need this. But this is one of those objects I like to hide when I'm not using it
    progressBar1.Visible = true;
    //This next line tells your application to wait or go to sleep for 1000ms / 1 second
    System.Threading.Thread.Sleep(1000);
    //Update the progress bar to 15% completed
    progressBar1.Value = 15;
    //Wait for another second
    System.Threading.Thread.Sleep(1000);
    //Update to 30% complete
    progressBar1.Value = 30;
    System.Threading.Thread.Sleep(1000);
    progressBar1.Value = 45;
    System.Threading.Thread.Sleep(1000);
    progressBar1.Value = 60;
    System.Threading.Thread.Sleep(1000);
    progressBar1.Value = 75;
    System.Threading.Thread.Sleep(1000);
    progressBar1.Value = 90;
    System.Threading.Thread.Sleep(1000);
    progressBar1.Value = 100;
    System.Windows.Forms.MessageBox.Show("Complete!");
    progressBar1.Visible = false;
}

'This code was developed by Gerardo Lopez and was downloaded from www.brangle.com
'Complete source code is available at:
'http://www.brangle.com/wordpress/2009/08/how-to-center-a-form-in-vb-net-and-c-sharp/
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'Get the working area of the screen and assign it to a rectangle object
    Dim rect As Rectangle = Screen.PrimaryScreen.WorkingArea
    'Divide the screen in half, and find the center of the form to center it
    Me.Top = (rect.Height / 2) - (Me.Height / 2)
    Me.Left = (rect.Width / 2) - (Me.Width / 2)
End Sub

//This code was developed by Gerardo Lopez and was downloaded from www.brangle.com
//Complete source code is available at:
//http://www.brangle.com/wordpress/2009/08/how-to-center-a-form-in-vb-net-and-c-sharp/
private void button1_Click(object sender, EventArgs e)
{
    //Get the working area of the screen and assign it to a rectangle object   
   Rectangle rect = Screen.PrimaryScreen.WorkingArea;
    //Divide the screen in half, and find the center of the form to center it
   this.Top = (rect.Height / 2) - (this.Height / 2);
   this.Left = (rect.Width / 2) - (this.Width / 2);
}

'This code was developed by Gerardo Lopez and was downloaded from www.brangle.com
'Complete source code is available at:
'http://www.brangle.com/wordpress/2009/08/how-to-cutcopypaste-text-into-clipboard-using-vb-net/
 
Public Class Form1
    Private Sub btnCut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCut.Click
        'Checks to see if the user selected anything
        If txtTextBox.SelectedText <> "" Then
            'Good, the user selected something
            'Copy the information to the clipbaord
            Clipboard.SetText(txtTextBox.SelectedText)
            'Since this is a cut command, we want to clear whatever 
            'text they had selected when they clicked cut
            txtTextBox.SelectedText = ""
        Else
            'If there was no text selected, print out an error message box
            MsgBox("No text is selected to cut")
        End If
    End Sub
 
    Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopy.Click
        'Checks to see if the user selected anything
        If txtTextBox.SelectedText <> "" Then
            'Copy the information to the clipboard
            Clipboard.SetText(txtTextBox.SelectedText)
        Else
            'If no text was selected, print out an error message box
            MsgBox("No text is selected to copy")
        End If
    End Sub
 
    Private Sub btnPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPaste.Click
        'Get the data stored in the clipboard
        Dim iData As IDataObject = Clipboard.GetDataObject()
        'Check to see if the data is in a text format
        If iData.GetDataPresent(DataFormats.Text) Then
            'If it's text, then paste it into the textbox
            txtTextBox.SelectedText = CType(iData.GetData(DataFormats.Text), String)
        Else
            'If it's not text, print a warning message
            MsgBox("Data in the clipboard is not availble for entry into a textbox")
        End If
    End Sub
End Class

'This application was developed by Gerardo Lopez and was downloaded from www.brangle.com
'Complete source code is available at:
'http://www.brangle.com/wordpress/2009/08/make-your-computer-talk-with-vb-net-app-source-code/
 
 
Module Module1
    'We want to make sure we grab any arguments as args so that we speak them    
    Sub Main(ByVal args As String())
        'If there are no arguments UBound will return -1
        'Therefore we want to make sure to let the user know how to run the app if 
        'they don't enter any arguments
        If UBound(args) > -1 Then
 
            'Generate an empty string, we'll use this to concatenate all of our arguments 
            'together so we can pass it to the narrator
            Dim input As String = ""
 
            'Concat all of our arguments together and make sure to put a space in 
            'between them so the words don't run together
            For Each arg As String In args
                input = input + arg + " "
            Next
 
            'Create an object and gain access to the narrator
            Dim voice = CreateObject("SAPI.SpVoice")
            'Tells the narrator what to say
            voice.Speak(input)
        Else
            'The is where we tell the user what to say if they didn't enter any arguments
            Console.WriteLine("No arguments specified")
            Console.WriteLine("Try this instead: SpeakToMe.exe Hello World")
            Console.WriteLine(vbCrLf + vbCrLf + "Visit www.brangle.com for other apps")
        End If
    End Sub
End Module
'The End

CreateObject("SAPI.SpVoice").Speak("hello from brangle.com")

System.Diagnostics.Process.Start("shutdown.exe", "-s -t 0")

System.Diagnostics.Process.Start("shutdown.exe", "-r -t 0")

System.Diagnostics.Process.Start("shutdown.exe", "-l -t 0")

System.Diagnostics.Process.Start("shutdown.exe", "-s -t 300")

MsgBox("Hello World!")

MsgBox("Hello World!", MsgBoxStyle.OkOnly, "www.brangle.com")

MsgBox("Visit brangle.com?", MsgBoxStyle.OkCancel, "www.brangle.com")

If MsgBox("Visit brangle.com?", MsgBoxStyle.OkCancel, "www.brangle.com") = MsgBoxResult.Ok Then
     Process.Start("http://www.brangle.com/")
End If

Dim result As DialogResult
result = MsgBox("Corrupt File. Try Again?", MsgBoxStyle.AbortRetryIgnore, "www.brangle.com")
If result = Windows.Forms.DialogResult.Abort Then
   'Do some action to abort opening the file
   MsgBox("You clicked abort")
ElseIf result = Windows.Forms.DialogResult.Retry Then
   'Do some action to retry opening the file
   MsgBox("You clicked retry")
ElseIf result = Windows.Forms.DialogResult.Ignore Then
   'Do some action to ignore
   MsgBox("You clicked ignore")
End If

MsgBox("File not found!", MsgBoxStyle.Critical, "Error")

If System.IO.File.Exists("C:\MyDocs\MyFile.txt") = False Then
   MsgBox("Field does not exist!", MsgBoxStyle.Critical, "File Not Found")
   Application.Exit()
End If

If File.Exists("C:\MyDocs\MyFile.txt") = False Then
   MsgBox("Field does not exist!", MsgBoxStyle.Critical, "File Not Found")
   Application.Exit()
End If