VERSION 5.00
Begin VB.Form frmFTPOptions 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "FTP options"
   ClientHeight    =   1965
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4665
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   204
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmFTPOptions.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1965
   ScaleWidth      =   4665
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdHelp 
      Caption         =   "Video Help"
      Height          =   700
      Left            =   3720
      MaskColor       =   &H00FF00FF&
      Picture         =   "frmFTPOptions.frx":1982
      Style           =   1  'Graphical
      TabIndex        =   9
      ToolTipText     =   "Help on current step"
      Top             =   120
      UseMaskColor    =   -1  'True
      Visible         =   0   'False
      Width           =   870
   End
   Begin VB.TextBox txtFTPDirectory 
      Height          =   315
      Left            =   1080
      TabIndex        =   1
      Top             =   480
      Width           =   2535
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "Save and Close"
      Height          =   315
      Left            =   3240
      TabIndex        =   4
      Top             =   1560
      Width           =   1335
   End
   Begin VB.TextBox txtFTPPassword 
      Height          =   285
      IMEMode         =   3  'DISABLE
      Left            =   1080
      PasswordChar    =   "*"
      TabIndex        =   3
      Top             =   1200
      Width           =   2535
   End
   Begin VB.TextBox txtFTPUsername 
      Height          =   285
      Left            =   1080
      TabIndex        =   2
      Top             =   840
      Width           =   2535
   End
   Begin VB.TextBox txtFTPHost 
      Height          =   315
      Left            =   1080
      TabIndex        =   0
      Top             =   100
      Width           =   2535
   End
   Begin VB.Label Label5 
      Caption         =   "Directory"
      Height          =   255
      Left            =   120
      TabIndex        =   8
      Top             =   480
      Width           =   735
   End
   Begin VB.Label Label4 
      Caption         =   "Password"
      Height          =   255
      Left            =   120
      TabIndex        =   7
      Top             =   1200
      Width           =   855
   End
   Begin VB.Label Label3 
      Caption         =   "Username:"
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   840
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "FTP Host:"
      Height          =   255
      Left            =   120
      TabIndex        =   5
      Top             =   140
      Width           =   855
   End
End
Attribute VB_Name = "frmFTPOptions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public strFTPHost As String
Public strFTPDirectory As String
Public strFTPUsername As String
Public strFTPPassword As String

Private Sub cmdHelp_Click()
    frmMain.ShowHelp 16
End Sub

Private Sub cmdOk_Click()
    strFTPHost = txtFTPHost
    strFTPDirectory = txtFTPDirectory
    strFTPUsername = txtFTPUsername
    strFTPPassword = txtFTPPassword
    
    Unload Me
End Sub

Private Sub Form_Load()
   ' Read the settings.
   strFTPHost = GetSetting("IE Toolbar Editor", "FTP Options", "Host")
   strFTPDirectory = GetSetting("IE Toolbar Editor", "FTP Options", "Directory")
   strFTPUsername = GetSetting("IE Toolbar Editor", "FTP Options", "User")
   strFTPPassword = GetSetting("IE Toolbar Editor", "FTP Options", "Password")
   
   txtFTPHost = strFTPHost
   txtFTPDirectory = strFTPDirectory
   txtFTPUsername = strFTPUsername
   txtFTPPassword = strFTPPassword
End Sub

Private Sub Form_Unload(Cancel As Integer)
   ' Save the settings.
   SaveSetting "IE Toolbar Editor", "FTP Options", "Host", strFTPHost
   SaveSetting "IE Toolbar Editor", "FTP Options", "Directory", strFTPDirectory
   SaveSetting "IE Toolbar Editor", "FTP Options", "User", strFTPUsername
   SaveSetting "IE Toolbar Editor", "FTP Options", "Password", strFTPPassword
End Sub
