[VB] VARIAVEIS ENTRE FORMS E OTIMIZA?ÃO

  ; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName [Ô]Launcher SA-MP[Ô]
#define MyAppVersion [Ô]2.0[Ô]
#define MyAppPublisher [Ô]Igor Oliveira[Ô]
#define MyAppExeName [Ô]LauncherSA-MP.exe[Ô]

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{BE128B3D-291C-46B9-BCB5-85533024A6A0}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
CreateAppDir=no
InfoAfterFile=C:\Users\igord\Desktop\Instalador Launcher SAMP\Arquivos\leia-me.txt
OutputBaseFilename=setupnovo
SetupIconFile=C:\Users\igord\OneDrive\Documentos\Visual Studio 2013\Projects\Launcher SA-MP 2.0\icone.ico
Compression=lzma
SolidCompression=yes
CreateUninstallRegKey=false

[Languages]
Name: [Ô]brazilianportuguese[Ô]; MessagesFile: [Ô]compiler:Languages\BrazilianPortuguese.isl[Ô]

[Files]
Source: [Ô]C:\Users\igord\Desktop\Instalador Launcher SAMP\Arquivos\*[Ô]; DestDir: [Ô]{tmp}[Ô]; Flags: nocompression createallsubdirs recursesubdirs deleteafterinstall


; NOTE: Don[ô]t use [Ô]Flags: ignoreversion[Ô] on any shared system files

[Run]
Filename: [Ô]msiexec.exe[Ô]; Parameters: [Ô]/i [Ô][Ô]{tmp}\SSCERuntime_x86-ENU.msi[Ô][Ô]/qn[Ô]; StatusMsg: [Ô]Instalando o Banco de Dados[Ô]; Check: Not IsWin64(); Flags: skipifsilent
Filename: [Ô]msiexec.exe[Ô]; Parameters: [Ô]/i [Ô][Ô]{tmp}\SSCERuntime_x64-ENU.msi[Ô][Ô]/qn[Ô]; StatusMsg: [Ô]Instalando o Banco de Dados[Ô]; Check: IsWin64(); Flags: skipifsilent
Filename: [Ô]msiexec.exe[Ô]; Parameters: [Ô]/i [Ô][Ô]{tmp}\InstaladorLauncher.msi[Ô][Ô]/qn[Ô]; StatusMsg: [Ô]Instalando o Launcher[Ô] 

  Sub Delay(ByVal dblSecs As Double)

        Const OneSec As Double = 1.0# / (1440.0# * 60.0#)
        Dim dblWaitTil As Date
        Now.AddSeconds(OneSec)
        dblWaitTil = Now.AddSeconds(OneSec).AddSeconds(dblSecs)
        Do Until Now > dblWaitTil
            Application.DoEvents()
        Loop

    End Sub
    [ô]BOTÃO JOGAR
    Private Sub btn_jogar_Click(sender As Object, e As EventArgs) Handles btn_jogar.Click
        If txt_nickname.Text = [Ô][Ô] Then
            MsgBox([Ô]Insira um Nome.[Ô])
        Else
            If chec_SAMP.Checked Then
                System.Diagnostics.Process.Start([Ô]samp://[Ô] + lbl_IP.Text)
                If chec_delay.Checked Then
                    Delay(tempodosamp)
                    FocusWindow([Ô]samp[Ô])
                    Delay(1)
                    SendKeys.Send([Ô]{LEFT}[Ô])
                    SendKeys.Send([Ô]{ENTER}[Ô])
                End If
            End If
            If chec_TS.Checked Then
                System.Diagnostics.Process.Start([Ô]ts3server://[Ô] + lbl_IPTS.Text)
                If chec_delayts.Checked Then
                    Delay(tempodots)
                End If
            End If
            If chec_gravador.Checked Then
                Try
                    System.Diagnostics.Process.Start(txt_caminhogravador.Text)
                Catch ex As Exception
                    MsgBox([Ô]Caminho do gravador de tela inválido ou inexistente.[Ô])
                End Try
            End If
            If chec_keybinder.Checked Then
                Try
                    System.Diagnostics.Process.Start(txt_caminhokeybinder.Text)
                Catch ex As Exception
                    MsgBox([Ô]Caminho do Keybinder inválido ou inexistente.[Ô])
                End Try
            End If
            Delay(5)
            Me.Close()
        End If
    End Sub