[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Code]
var
  PageOne: TWizardPage;
  PageTwo: TWizardPage;
  PageSwitch: TWizardPage;
  ListSwitch: TNewCheckListBox;

procedure InitializeWizard;
begin
  PageSwitch := CreateCustomPage(wpWelcome, 'Caption', 'Description');
  ListSwitch := TNewCheckListBox.Create(WizardForm);
  ListSwitch.Parent := PageSwitch.Surface;
  ListSwitch.AddRadioButton('Go to page 1', '', 0, True, True, nil);
  ListSwitch.AddRadioButton('Go to page 2', '', 0, True, True, nil);

  PageOne := CreateCustomPage(PageSwitch.ID, 'Page 1', 'Description');
  PageTwo := CreateCustomPage(PageOne.ID, 'Page 2', 'Description');
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result := ((PageID = PageOne.ID) and ListSwitch.Checked[1]) or
    ((PageID = PageTwo.ID) and ListSwitch.Checked[0]);
end;