VERSION 5.00
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form BootPage 
   BackColor       =   &H00FFFFFF&
   Caption         =   "DRBL Helper"
   ClientHeight    =   1935
   ClientLeft      =   4305
   ClientTop       =   5565
   ClientWidth     =   7560
   Icon            =   "BootPage.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   1935
   ScaleWidth      =   7560
   Begin MSForms.CommandButton cmdExit 
      Height          =   375
      Left            =   6240
      TabIndex        =   4
      Top             =   1440
      Width           =   1215
      Caption         =   "Exit"
      Size            =   "2143;661"
      FontName        =   "新細明體"
      FontHeight      =   180
      FontCharSet     =   136
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton cmdPrevious 
      Height          =   375
      Left            =   4920
      TabIndex        =   3
      Top             =   1440
      Width           =   1215
      Caption         =   "Previous"
      Size            =   "2143;661"
      FontName        =   "新細明體"
      FontHeight      =   180
      FontCharSet     =   136
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton cmdRun 
      Height          =   375
      Left            =   2160
      TabIndex        =   2
      Top             =   720
      Width           =   3975
      Caption         =   "Make USB flash drive bootable"
      Size            =   "7011;661"
      FontName        =   "新細明體"
      FontHeight      =   180
      FontCharSet     =   136
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.Label lbl2 
      Height          =   255
      Left            =   4200
      TabIndex        =   1
      Top             =   240
      Width           =   1215
      ForeColor       =   16711680
      BackColor       =   16777215
      VariousPropertyBits=   8388627
      Size            =   "2143;450"
      FontName        =   "新細明體"
      FontHeight      =   180
      FontCharSet     =   136
      FontPitchAndFamily=   34
   End
   Begin MSForms.Label lbl1 
      Height          =   495
      Left            =   2160
      TabIndex        =   0
      Top             =   240
      Width           =   1695
      ForeColor       =   12632064
      BackColor       =   16777215
      VariousPropertyBits=   8388627
      Caption         =   "USB flash drive"
      Size            =   "2990;873"
      FontName        =   "新細明體"
      FontHeight      =   180
      FontCharSet     =   136
      FontPitchAndFamily=   34
   End
   Begin VB.Image Image1 
      Height          =   1935
      Left            =   0
      Picture         =   "BootPage.frx":0CCA
      Stretch         =   -1  'True
      Top             =   0
      Width           =   1935
   End
End
Attribute VB_Name = "BootPage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdExit_Click()

    
    If InstallPage.Visible = False Then
        Unload InstallPage
    End If
    
    If FormatPage.Visible = False Then
        Unload FormatPage
    End If
    
    If LanguagePage.Visible = False Then
        Unload LanguagePage
    End If
    
    Unload Me
End Sub

Private Sub cmdPrevious_Click()
    Me.Hide
    InstallPage.Show
End Sub

Private Sub cmdRun_Click()
    'Create Boot Disk
    Dim args As String
    Dim strCmd As String
         
    args = "-s " & GetDriveID & ": "
    strCmd = """" & G_LibPath & "syslinux.exe"" " & args
    ExecCmd strCmd
    ReadyDialog.lblMsg.Caption = GetString(11)
    
    AlwaysOnTop ReadyDialog, True
    ReadyDialog.Show
    
    
End Sub


Private Sub Form_Load()
    Me.Top = FormatPage.Top
    Me.Left = FormatPage.Left
   SetLocale
End Sub

Public Sub SetLocale()
    lbl2.Caption = GetDriveID

    '
    If (LoadLocalizedResources) Then
       ' Pull a string resource out of a local resource
       ' object for demonstration purposes.
       lbl1.Caption = GetString(5)
       cmdRun.Caption = GetString(6)
       cmdPrevious.Caption = GetString(16)
       cmdExit.Caption = GetString(4)
       'Me.Caption = GetString()
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    cmdExit_Click
End Sub