Private Sub Form1_Shown(sender As Object, e As EventArgs) _
   Handles MyBase.Shown
 
      button1.enabled = false
 
   End Sub
 
 
   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) _
   Handles TextBox1.TextChanged
 
    button1.enabled = String.IsNullOrEmpty(CStr(sender.text))
 
   End Sub

...

   private KeyLength as integer = -1I
 
   Private Sub Form1_Shown(sender As Object, e As EventArgs) _
   Handles MyBase.Shown
 
     CheckBox1.tag = 16I
     CheckBox2.tag = 20I
 
   End Sub
 
   Private Sub CheckBox_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) _
   Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged
 
      KeyLength = CInt(sender.tag)
 
   End Sub
 
   private sub GenerarRandomKey()
 
      Select case KeyLength
 
         Case Is 16I
 
         Case Is 20I
 
      End Select
 
   End sub

C:\Program Files\
C:\Program Files(x86)\

C:\ProgramData
C:\Program Files\Common Files
C:\Program Files (x86)\Common Files
C:\Users\Administrador\AppData\Local
C:\Users\Administrador\AppData\Roaming
C:\Windows\System32
C:\Windows\SysWow64

; = = = = = = = = = = = = = = = = = = =
; Default Template ( by Elektro )      |
;                                      |
;            InnoSetup 5.5.4           |
; = = = = = = = = = = = = = = = = = = =
 
[Setup]
 
; ----
; Info
; ----
#define Name "Application"
#define Version "1.0"
#define EXE "Application.exe"
AppName={#Name}
AppVersion={#Version}
AppVerName={#Name} {#Version}
AppCopyright=Elektro H@cker
AppPublisher=Elektro H@cker
 
; -----
; Paths
; -----
DefaultDirName={pf}\{#Name}
DefaultGroupName={#Name}
OutputDir=.\Output\
OutputBaseFilename={#Name}
UninstallDisplayIcon={app}\{#EXE}
 
; -----------
; Compression
; -----------
Compression=lzma/ultra
InternalCompressLevel=Ultra
SolidCompression=True
;DiskSpanning=true
;DiskSliceSize=2100000000
 
; ----------
; Appearance
; ----------
AlwaysShowComponentsList=False
DisableDirPage=True
DisableProgramGroupPage=True
DisableReadyPage=True
DisableStartupPrompt=True
FlatComponentsList=False
LanguageDetectionMethod=None
PrivilegesRequired=PowerUser
RestartIfNeededByRun=False
ShowLanguageDialog=NO
ShowTasksTreeLines=True
Uninstallable=True
ArchitecturesAllowed=x86 x64
;ArchitecturesInstallIn64BitMode=x64
 
; ---------
; Resources
; ---------
SetupIconFile=Icon.ico
WizardImageFile=embedded\WizardImage.bmp
WizardSmallImageFile=embedded\WizardSmallImage.bmp
InfoBeforeFile=embedded\InfoBefore.rtf
;InfoBeforeFile=embedded\InfoBefore.txt
 
 
[Languages]
Name: english; MessagesFile: compiler:Languages\English.isl
;Name: spanish; MessagesFile: compiler:Languages\Spanish.isl
 
 
[Dirs]
;{sd}                  = 'C:\'
;
;{commonappdata}       = 'C:\ProgramData'
;{localappdata}        = 'C:\Users\UserName\AppData\Local'
;{userappdata}         = 'C:\Users\UserName\AppData\Roaming'
;
;{pf}                  = 'C:\Program Files' (On x86 machine) | 'C:\Program Files (x86)' (On x64 machine)
;{pf32}                = 'C:\Program Files (x86)' (Only can be used on x64 machine)
;{pf64}                = 'C:\Program Files'       (Only can be used on x64 machine)
;
;{cf}                  = 'C:\Program Files\Common Files' (On x86 machine) | 'C:\Program Files (x86)\Common Files' (On x64 machine)
;{cf32}                = 'C:\Program Files (x86)\Common Files' (Only can be used on x64 machine)
;{cf64}                = 'C:\Program Files\Common Files' (Only can be used on x64 machine)
;
;{win}                 = 'C:\Windows'
;{fonts}               = 'C:\Windows\Fonts'
;{sys}                 = 'C:\Windows\System32'
;{syswow64}            = 'C:\Windows\SysWow64' (Only can be used on x64 machine)
;
;{%userprofile}        = 'C:\Users\UserName'
;{userdesktop}         = 'C:\Users\UserName\Desktop'
;{userdocs}            = 'C:\Users\UserName\Documents'
;
;{commonstartmenu}     = 'C:\ProgramData\Microsoft\Windows\Start Menu'
;{userstartmenu}       = 'C:\Users\UserName\AppData\Roaming\Microsoft\Windows\Start Menu'
;
;{sendto}              = 'C:\Users\UserName\AppData\Roaming\Microsoft\Windows\SendTo'
 
 
[Files]
Source: {tmp}\*; DestDir: {tmp}; Flags: deleteafterinstall
Source: {app}\*; DestDir: {app}; Flags: recursesubdirs createallsubdirs ignoreversion
 
;Source: {app}\*.*; DestDir: {app}; DestName:; Attribs:; Flags:;
;
;Attribs: ReadOnly Hidden System
;
;DestName: Example.exe
;
;Flags: 32bit 64bit Deleteafterinstall IgnoreVersion NoCompression Onlyifdoesntexist recursesubdirs createallsubdirs uninsneveruninstall
 
 
[Registry]
;Root: HKCR; Subkey: SystemFileAssociations\.ext\Shell\OPTION; ValueName: Icon; ValueType: String; ValueData: {app}\{#Exe}; Flags: ; uninsdeletevalue
;Root: HKCR; Subkey: SystemFileAssociations\.ext\Shell\OPTION\Command; ValueType: String; ValueData: """{app}\{#Exe}"" ""%1"""; Flags: ; uninsdeletevalue
;
;Flags: uninsdeletevalue uninsdeletekey
 
 
[Tasks]
;Name: Identifier; Description: Title; GroupDescription: Group; Flags:;
;
;Flags: Unchecked
 
 
[Run]
Filename: {app}\{#Exe}; Description: {cm:LaunchProgram,{#Name}}; Flags: NoWait PostInstall SkipIfSilent ShellExec Unchecked
 
;Filename: {cmd}; Parameters: "/C command"; StatusMsg: "Installing..."; Flags: RunHidden WaitUntilTerminated
;
;Flags: 32bit 64bit RunHidden WaitUntilTerminated NoWait PostInstall SkipIfSilent ShellExec Unchecked
 
 
[Icons]
Name: {userstartmenu}\Programs\{#Name}; Filename: {app}\{#Exe}; IconFilename: {app}\{#Exe}; WorkingDir: {app}
 
 
[Code]
 
const
  Custom_Height = 440;
  Custom_ProgressBar_Height = 20;
  Page_Color = clwhite;
  Page_Color_Alternative1 = clblack;
  Page_Color_Alternative2 = clwhite;
  Font_Color = clblack;
 
 
var
  DefaultTop,
  DefaultLeft,
  DefaultHeight,
  DefaultBackTop,
  DefaultNextTop,
  DefaultCancelTop,
  DefaultBevelTop,
  DefaultOuterHeight: Integer;
 
 
procedure InitializeWizard();
begin
 
  DefaultTop := WizardForm.Top;
  DefaultLeft := WizardForm.Left;
  DefaultHeight := WizardForm.Height;
  DefaultBackTop := WizardForm.BackButton.Top;
  DefaultNextTop := WizardForm.NextButton.Top;
  DefaultCancelTop := WizardForm.CancelButton.Top;
  DefaultBevelTop := WizardForm.Bevel.Top;
  DefaultOuterHeight := WizardForm.OuterNotebook.Height;
 
 
  // Pages (Size)
  WizardForm.Height := Custom_Height;
  WizardForm.InnerPage.Height := WizardForm.InnerPage.Height + (Custom_Height - DefaultHeight);
  WizardForm.LicensePage.Height := WizardForm.LicensePage.Height + (Custom_Height - DefaultHeight);
 
 
  // Pages (Color)
  WizardForm.color := Page_Color_Alternative1;
  WizardForm.FinishedPage.Color  := Page_Color;
  WizardForm.InfoAfterPage.Color := Page_Color;
  WizardForm.InfoBeforePage.Color := Page_Color;
  WizardForm.InnerPage.Color := Page_Color;
  WizardForm.InstallingPage.color := Page_Color;
  WizardForm.LicensePage.Color := Page_Color;
  WizardForm.PasswordPage.color := Page_Color;
  WizardForm.PreparingPage.color := Page_Color;
  WizardForm.ReadyPage.Color := Page_Color;
  WizardForm.SelectComponentsPage.Color  := Page_Color;
  WizardForm.SelectDirPage.Color  := Page_Color;
  WizardForm.SelectProgramGroupPage.color := Page_Color;
  WizardForm.SelectTasksPage.color := Page_Color;
  WizardForm.UserInfoPage.color := Page_Color;
  WizardForm.WelcomePage.color := Page_Color;
 
 
  // Controls (Size)
  WizardForm.InfoAfterMemo.Height := (Custom_Height - (DefaultHeight / 2));
  WizardForm.InfoBeforeMemo.Height := (Custom_Height - (DefaultHeight / 2));
  WizardForm.InnerNotebook.Height :=  WizardForm.InnerNotebook.Height + (Custom_Height - DefaultHeight);
  WizardForm.LicenseMemo.Height := WizardForm.LicenseMemo.Height + (Custom_Height - DefaultHeight);
  WizardForm.OuterNotebook.Height := WizardForm.OuterNotebook.Height + (Custom_Height - DefaultHeight);
  WizardForm.ProgressGauge.Height := Custom_ProgressBar_Height
  WizardForm.ReadyMemo.Height := (Custom_Height - (DefaultHeight / 2));
  WizardForm.Taskslist.Height := (Custom_Height - (DefaultHeight / 2));
  WizardForm.WizardBitmapImage.Height := (Custom_Height - (DefaultHeight - DefaultBevelTop));
  WizardForm.WizardBitmapImage2.Height  := (Custom_Height - (DefaultHeight - DefaultBevelTop));
 
 
  // Controls (Location)
  WizardForm.BackButton.Top := DefaultBackTop + (Custom_Height - DefaultHeight);
  WizardForm.Bevel.Top := DefaultBevelTop + (Custom_Height - DefaultHeight);
  WizardForm.CancelButton.Top := DefaultCancelTop + (Custom_Height - DefaultHeight);
  WizardForm.LicenseAcceptedRadio.Top := WizardForm.LicenseAcceptedRadio.Top + (Custom_Height - DefaultHeight);
  WizardForm.LicenseNotAcceptedRadio.Top := WizardForm.LicenseNotAcceptedRadio.Top + (Custom_Height - DefaultHeight);
  WizardForm.NextButton.Top := DefaultNextTop + (Custom_Height - DefaultHeight);
  WizardForm.Top := DefaultTop - (Custom_Height - DefaultHeight) div 2;
  //WizardForm.ProgressGauge.Top := (DefaultHeight / 2)
 
 
  // Controls (Back Color)
  WizardForm.DirEdit.Color  := Page_Color_Alternative2;
  WizardForm.GroupEdit.Color  := Page_Color_Alternative2;
  WizardForm.InfoAfterMemo.Color := Page_Color_Alternative2;
  WizardForm.InfoBeforeMemo.Color := Page_Color_Alternative2;
  WizardForm.LicenseMemo.Color := Page_Color_Alternative2;
  WizardForm.MainPanel.Color := Page_Color;
  WizardForm.PasswordEdit.Color  := Page_Color_Alternative2;
  WizardForm.ReadyMemo.Color := Page_Color_Alternative2;
  WizardForm.Taskslist.Color := Page_Color;
  WizardForm.UserInfoNameEdit.Color  := Page_Color_Alternative2;
  WizardForm.UserInfoOrgEdit.Color  := Page_Color_Alternative2;
  WizardForm.UserInfoSerialEdit.Color  := Page_Color_Alternative2;
 
 
  // Controls (Font Color)
  WizardForm.FinishedHeadingLabel.font.color  := Font_Color;
  WizardForm.InfoafterMemo.font.Color  := Font_Color;
  WizardForm.FinishedLabel.font.color  := Font_Color;
  WizardForm.DirEdit.font.Color  := Page_Color_Alternative1;
  WizardForm.GroupEdit.font.Color  := Page_Color_Alternative1;
  WizardForm.LicenseMemo.font.Color  := Page_Color_Alternative1;
  WizardForm.MainPanel.font.Color := Font_Color;
  WizardForm.PageDescriptionLabel.font.color  := Font_Color;
  WizardForm.PageNameLabel.font.color  := Font_Color;
  WizardForm.PasswordEdit.font.Color  := Page_Color_Alternative1;
  WizardForm.Taskslist.font.Color  := Font_Color;
  WizardForm.UserInfoNameEdit.font.Color  := Page_Color_Alternative1;
  WizardForm.UserInfoOrgEdit.font.Color  := Page_Color_Alternative1;
  WizardForm.UserInfoSerialEdit.font.Color  := Page_Color_Alternative1;
  WizardForm.WelcomeLabel1.font.color  := Font_Color;
  WizardForm.WelcomeLabel2.font.color  := Font_Color;
  WizardForm.ReadyMemo.font.Color := Page_Color_Alternative1;
  // These properties disables HyperLinks:
  //
  //WizardForm.Font.color := Font_Color;
  //WizardForm.InfoBeforeMemo.font.Color  := Page_Color_Alternative1;
 
end;