Codenstuff.com

    Dim Icon
    Dim File As String
    Dim Folder As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim openDLG As New OpenFileDialog
        openDLG.Filter = "Executable Files (*.exe)|*.exe|All Files (*.*)|*.*"
        DialogResult = openDLG.ShowDialog(Me)
        If DialogResult = DialogResult.OK Then
            Dim FileName As String = openDLG.FileName
            Dim LastSlash As Integer = FileName.LastIndexOf("\")
            File = FileName.Substring(LastSlash + 1)
            TextBox1.Text = File
            openDLG.Dispose()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim DIR As New FolderBrowserDialog
        DIR.Description = "Select the path to save the 'autorun.inf' file to..."
        DialogResult = DIR.ShowDialog()
        If DialogResult = DialogResult.OK Then
            Folder = DIR.SelectedPath
            TextBox2.Text = (Folder)
        End If
        DIR.Dispose()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim openDLG As New OpenFileDialog
        openDLG.Filter = "Icon Files (*.ico)|*.ico|All Files (*.*)|*.*"
        DialogResult = openDLG.ShowDialog(Me)
        If DialogResult = DialogResult.OK Then
            PictureBox1.Image = Image.FromFile(openDLG.FileName)
            Dim LastSlash As Integer = openDLG.FileName.LastIndexOf("\")
            Icon = openDLG.FileName.Substring(LastSlash + 1)
        End If
        openDLG.Dispose()
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then
            Button3.Enabled = False
        Else
            Button3.Enabled = True
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked Then
            TextBox3.ReadOnly = True
        Else
            TextBox3.ReadOnly = False
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox3.Clear()
        TextBox3.AppendText("[autorun]" & vbNewLine)
        TextBox3.AppendText("open = " & File & vbNewLine)
        If CheckBox1.Checked Then
            TextBox3.AppendText("icon = " & File)
        Else
            TextBox3.AppendText("icon = " & Icon)
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Try
            Dim writeFile As New IO.StreamWriter(Folder & "\autorun.inf", False)
            writeFile.WriteLine("[autorun]")
            writeFile.WriteLine("open = " & File)
            If CheckBox1.Checked Then
                writeFile.WriteLine("icon = " & File)
            Else
                writeFile.WriteLine("icon = " & Icon)
            End If
            writeFile.Flush()
            writeFile.Close()
        Catch exc As Exception
            MessageBox.Show(exc.ToString)
        End Try
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        MsgBox("This software was developed by ObsprO.", MsgBoxStyle.Information, "ObsprO Autorun Creator")
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Me.Close()
    End Sub

...
MsgBox("This software was developed by ObsprO.", MsgBoxStyle.Information, "ObsprO Autorun Creator")
...