[autorun]
open=Form1.exe

Shell(".\Form2.exe", AppWinStyle.NormalFocus)

Shell(".Programa\Form2.exe", AppWinStyle.NormalFocus)

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode.ToString = "Q" Then 'Aqui es donde esta la funcion de la tecla
            Me.KeyPreview = True
            Form2.Show()
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub

Dim INI_File As String = ".\Test.ini"
 
' Save INI Settings
    Private Sub Save_INI_Settings()
 
        Dim Current_Settings As String = _
            "File=" & TextBox_File.Text & Environment.NewLine & _
            "SaveFile=" & CheckBox_SaveFile.Checked
 
        My.Computer.FileSystem.WriteAllText(INI_File, Current_Settings, False)
 
    End Sub
 
' Load INI Settings
    Private Sub Load_INI_Settings()
 
        Dim xRead As IO.StreamReader = IO.File.OpenText(INI_File)
        Dim Line As String = String.Empty
        Dim Delimiter As String = "="
        Dim ValueName As String = String.Empty
        Dim Value As Object
 
        ' Example content of Test.ini:
        '
        ' File=C:\File.txt
        ' SaveFile=True
 
        Do Until xRead.EndOfStream
 
            Line = xRead.ReadLine().ToLower
            ValueName = Line.Split(Delimiter).First
            Value = Line.Split(Delimiter).Last
 
            If ValueName = "File".ToLower Then TextBox_File.Text = Value
            If ValueName = "SaveFile".ToLower Then CheckBox_SaveFile.Checked = Value
 
            Application.DoEvents()
 
        Loop
 
        xRead.Close() : xRead.Dispose()
 
    End Sub