home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Complete_H4346312212001.psc / frmbkgrnd.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-12-20  |  22.7 KB  |  722 lines
  1. VERSION 5.00
  2. Begin VB.Form frmbkgrnd 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Format  Page Background"
  5.    ClientHeight    =   7200
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   8220
  9.    Icon            =   "frmbkgrnd.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   480
  14.    ScaleMode       =   3  'Pixel
  15.    ScaleWidth      =   548
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   1  'CenterOwner
  18.    Begin VB.TextBox Text4 
  19.       Height          =   285
  20.       Left            =   6720
  21.       TabIndex        =   24
  22.       Text            =   "0"
  23.       Top             =   4320
  24.       Width           =   615
  25.    End
  26.    Begin VB.TextBox Text1 
  27.       Height          =   285
  28.       Left            =   6720
  29.       TabIndex        =   23
  30.       Text            =   "0"
  31.       Top             =   3960
  32.       Width           =   615
  33.    End
  34.    Begin VB.ComboBox Combo4 
  35.       Height          =   315
  36.       Left            =   3240
  37.       TabIndex        =   22
  38.       Text            =   "Combo4"
  39.       Top             =   5760
  40.       Width           =   1455
  41.    End
  42.    Begin VB.ComboBox Combo3 
  43.       Height          =   315
  44.       Left            =   5280
  45.       TabIndex        =   21
  46.       Text            =   "Combo3"
  47.       Top             =   5280
  48.       Width           =   1335
  49.    End
  50.    Begin VB.ComboBox Combo2 
  51.       Height          =   315
  52.       Left            =   1560
  53.       TabIndex        =   20
  54.       Text            =   "Combo2"
  55.       Top             =   5280
  56.       Width           =   1335
  57.    End
  58.    Begin VB.PictureBox Picture5 
  59.       Appearance      =   0  'Flat
  60.       BackColor       =   &H00000080&
  61.       ForeColor       =   &H80000008&
  62.       Height          =   255
  63.       Left            =   4800
  64.       ScaleHeight     =   225
  65.       ScaleWidth      =   465
  66.       TabIndex        =   18
  67.       Top             =   5760
  68.       Width           =   495
  69.    End
  70.    Begin VB.PictureBox Picture4 
  71.       Appearance      =   0  'Flat
  72.       BackColor       =   &H00000080&
  73.       ForeColor       =   &H80000008&
  74.       Height          =   255
  75.       Left            =   6720
  76.       ScaleHeight     =   225
  77.       ScaleWidth      =   345
  78.       TabIndex        =   16
  79.       Top             =   5280
  80.       Width           =   375
  81.    End
  82.    Begin VB.PictureBox Picture3 
  83.       Appearance      =   0  'Flat
  84.       BackColor       =   &H00FF0000&
  85.       ForeColor       =   &H80000008&
  86.       Height          =   255
  87.       Left            =   3000
  88.       ScaleHeight     =   225
  89.       ScaleWidth      =   345
  90.       TabIndex        =   14
  91.       Top             =   5280
  92.       Width           =   375
  93.    End
  94.    Begin VB.DriveListBox Drive1 
  95.       Height          =   315
  96.       Left            =   600
  97.       TabIndex        =   13
  98.       Top             =   480
  99.       Width           =   3375
  100.    End
  101.    Begin VB.CommandButton Command4 
  102.       Caption         =   "Use Background Color"
  103.       BeginProperty Font 
  104.          Name            =   "MS Sans Serif"
  105.          Size            =   8.25
  106.          Charset         =   0
  107.          Weight          =   700
  108.          Underline       =   0   'False
  109.          Italic          =   0   'False
  110.          Strikethrough   =   0   'False
  111.       EndProperty
  112.       Height          =   270
  113.       Left            =   840
  114.       TabIndex        =   11
  115.       Top             =   6720
  116.       Width           =   2235
  117.    End
  118.    Begin VB.PictureBox Picture2 
  119.       Appearance      =   0  'Flat
  120.       BackColor       =   &H80000005&
  121.       ForeColor       =   &H80000008&
  122.       Height          =   270
  123.       Left            =   2520
  124.       ScaleHeight     =   240
  125.       ScaleWidth      =   1305
  126.       TabIndex        =   10
  127.       Top             =   3960
  128.       Width           =   1335
  129.    End
  130.    Begin VB.ComboBox Combo1 
  131.       Height          =   315
  132.       Left            =   720
  133.       TabIndex        =   9
  134.       Text            =   "Combo1"
  135.       Top             =   3960
  136.       Width           =   1620
  137.    End
  138.    Begin VB.CommandButton Command3 
  139.       Caption         =   "Cancel"
  140.       BeginProperty Font 
  141.          Name            =   "MS Sans Serif"
  142.          Size            =   8.25
  143.          Charset         =   0
  144.          Weight          =   700
  145.          Underline       =   0   'False
  146.          Italic          =   0   'False
  147.          Strikethrough   =   0   'False
  148.       EndProperty
  149.       Height          =   285
  150.       Left            =   6840
  151.       TabIndex        =   8
  152.       Top             =   6720
  153.       Width           =   1230
  154.    End
  155.    Begin VB.DirListBox Dir1 
  156.       Height          =   2340
  157.       Left            =   600
  158.       TabIndex        =   5
  159.       Top             =   840
  160.       Width           =   1755
  161.    End
  162.    Begin VB.FileListBox File1 
  163.       Height          =   2235
  164.       Left            =   2400
  165.       Pattern         =   "*.gif;*.jpg"
  166.       TabIndex        =   4
  167.       Top             =   840
  168.       Width           =   1575
  169.    End
  170.    Begin VB.TextBox Text3 
  171.       BackColor       =   &H80000000&
  172.       Height          =   285
  173.       Left            =   5280
  174.       TabIndex        =   3
  175.       Top             =   2280
  176.       Width           =   690
  177.    End
  178.    Begin VB.CommandButton Command2 
  179.       Caption         =   "Use Background Image"
  180.       BeginProperty Font 
  181.          Name            =   "MS Sans Serif"
  182.          Size            =   8.25
  183.          Charset         =   0
  184.          Weight          =   700
  185.          Underline       =   0   'False
  186.          Italic          =   0   'False
  187.          Strikethrough   =   0   'False
  188.       EndProperty
  189.       Height          =   285
  190.       Left            =   3240
  191.       TabIndex        =   2
  192.       Top             =   6720
  193.       Width           =   2295
  194.    End
  195.    Begin VB.PictureBox Picture1 
  196.       Appearance      =   0  'Flat
  197.       BackColor       =   &H80000000&
  198.       ForeColor       =   &H80000008&
  199.       Height          =   1695
  200.       Left            =   4680
  201.       ScaleHeight     =   111
  202.       ScaleMode       =   3  'Pixel
  203.       ScaleWidth      =   183
  204.       TabIndex        =   1
  205.       Top             =   480
  206.       Width           =   2775
  207.       Begin VB.PictureBox Picture6 
  208.          Appearance      =   0  'Flat
  209.          AutoSize        =   -1  'True
  210.          BorderStyle     =   0  'None
  211.          ForeColor       =   &H80000008&
  212.          Height          =   1095
  213.          Left            =   0
  214.          ScaleHeight     =   73
  215.          ScaleMode       =   3  'Pixel
  216.          ScaleWidth      =   157
  217.          TabIndex        =   31
  218.          Top             =   0
  219.          Width           =   2355
  220.       End
  221.    End
  222.    Begin VB.TextBox Text2 
  223.       BackColor       =   &H80000000&
  224.       Height          =   285
  225.       Left            =   6720
  226.       TabIndex        =   0
  227.       Top             =   2280
  228.       Width           =   705
  229.    End
  230.    Begin VB.Label Label12 
  231.       Alignment       =   2  'Center
  232.       Caption         =   "Set Page Hyperlink text colors"
  233.       BeginProperty Font 
  234.          Name            =   "MS Sans Serif"
  235.          Size            =   9.75
  236.          Charset         =   0
  237.          Weight          =   700
  238.          Underline       =   0   'False
  239.          Italic          =   0   'False
  240.          Strikethrough   =   0   'False
  241.       EndProperty
  242.       ForeColor       =   &H00C00000&
  243.       Height          =   255
  244.       Left            =   1680
  245.       TabIndex        =   30
  246.       Top             =   4920
  247.       Width           =   4575
  248.    End
  249.    Begin VB.Shape Shape4 
  250.       BorderColor     =   &H00C00000&
  251.       Height          =   1215
  252.       Left            =   360
  253.       Shape           =   4  'Rounded Rectangle
  254.       Top             =   5040
  255.       Width           =   7455
  256.    End
  257.    Begin VB.Label Label11 
  258.       Alignment       =   2  'Center
  259.       Caption         =   "Set Page Margins"
  260.       BeginProperty Font 
  261.          Name            =   "MS Sans Serif"
  262.          Size            =   9.75
  263.          Charset         =   0
  264.          Weight          =   700
  265.          Underline       =   0   'False
  266.          Italic          =   0   'False
  267.          Strikethrough   =   0   'False
  268.       EndProperty
  269.       ForeColor       =   &H00C00000&
  270.       Height          =   255
  271.       Left            =   5400
  272.       TabIndex        =   29
  273.       Top             =   3600
  274.       Width           =   2175
  275.    End
  276.    Begin VB.Shape Shape3 
  277.       BorderColor     =   &H00C00000&
  278.       Height          =   975
  279.       Left            =   5160
  280.       Shape           =   4  'Rounded Rectangle
  281.       Top             =   3720
  282.       Width           =   2655
  283.    End
  284.    Begin VB.Label Label3 
  285.       Alignment       =   2  'Center
  286.       Caption         =   "Choose Background color"
  287.       BeginProperty Font 
  288.          Name            =   "MS Sans Serif"
  289.          Size            =   9.75
  290.          Charset         =   0
  291.          Weight          =   700
  292.          Underline       =   0   'False
  293.          Italic          =   0   'False
  294.          Strikethrough   =   0   'False
  295.       EndProperty
  296.       ForeColor       =   &H00C00000&
  297.       Height          =   255
  298.       Left            =   720
  299.       TabIndex        =   28
  300.       Top             =   3600
  301.       Width           =   3015
  302.    End
  303.    Begin VB.Shape Shape2 
  304.       BorderColor     =   &H00C00000&
  305.       Height          =   735
  306.       Left            =   360
  307.       Shape           =   4  'Rounded Rectangle
  308.       Top             =   3720
  309.       Width           =   3855
  310.    End
  311.    Begin VB.Label Label10 
  312.       Alignment       =   2  'Center
  313.       Caption         =   "Choose Background Image"
  314.       BeginProperty Font 
  315.          Name            =   "MS Sans Serif"
  316.          Size            =   9.75
  317.          Charset         =   0
  318.          Weight          =   700
  319.          Underline       =   0   'False
  320.          Italic          =   0   'False
  321.          Strikethrough   =   0   'False
  322.       EndProperty
  323.       ForeColor       =   &H00C00000&
  324.       Height          =   255
  325.       Left            =   1800
  326.       TabIndex        =   27
  327.       Top             =   120
  328.       Width           =   4695
  329.    End
  330.    Begin VB.Shape Shape1 
  331.       BorderColor     =   &H00C00000&
  332.       Height          =   3135
  333.       Left            =   360
  334.       Shape           =   4  'Rounded Rectangle
  335.       Top             =   240
  336.       Width           =   7455
  337.    End
  338.    Begin VB.Label Label9 
  339.       Caption         =   "Top Margin"
  340.       Height          =   255
  341.       Left            =   5520
  342.       TabIndex        =   26
  343.       Top             =   4320
  344.       Width           =   1215
  345.    End
  346.    Begin VB.Label Label8 
  347.       Caption         =   "Left Margin"
  348.       Height          =   255
  349.       Left            =   5520
  350.       TabIndex        =   25
  351.       Top             =   3960
  352.       Width           =   1215
  353.    End
  354.    Begin VB.Label Label7 
  355.       Caption         =   "Active link color"
  356.       Height          =   255
  357.       Left            =   1800
  358.       TabIndex        =   19
  359.       Top             =   5760
  360.       Width           =   1455
  361.    End
  362.    Begin VB.Label Label6 
  363.       Caption         =   "Visited link color"
  364.       Height          =   255
  365.       Left            =   3840
  366.       TabIndex        =   17
  367.       Top             =   5280
  368.       Width           =   1455
  369.    End
  370.    Begin VB.Label Label4 
  371.       Caption         =   "Link Color"
  372.       Height          =   255
  373.       Left            =   600
  374.       TabIndex        =   15
  375.       Top             =   5280
  376.       Width           =   975
  377.    End
  378.    Begin VB.Label Label5 
  379.       Alignment       =   2  'Center
  380.       Caption         =   "Use either a Background image or a Background color, not both"
  381.       BeginProperty Font 
  382.          Name            =   "MS Sans Serif"
  383.          Size            =   8.25
  384.          Charset         =   0
  385.          Weight          =   700
  386.          Underline       =   0   'False
  387.          Italic          =   0   'False
  388.          Strikethrough   =   0   'False
  389.       EndProperty
  390.       Height          =   300
  391.       Left            =   600
  392.       TabIndex        =   12
  393.       Top             =   6360
  394.       Width           =   6060
  395.    End
  396.    Begin VB.Label Label2 
  397.       Caption         =   "Width"
  398.       Height          =   255
  399.       Left            =   6120
  400.       TabIndex        =   7
  401.       Top             =   2280
  402.       Width           =   615
  403.    End
  404.    Begin VB.Label Label1 
  405.       Caption         =   "Height"
  406.       Height          =   240
  407.       Left            =   4680
  408.       TabIndex        =   6
  409.       Top             =   2280
  410.       Width           =   660
  411.    End
  412. Attribute VB_Name = "frmbkgrnd"
  413. Attribute VB_GlobalNameSpace = False
  414. Attribute VB_Creatable = False
  415. Attribute VB_PredeclaredId = True
  416. Attribute VB_Exposed = False
  417. Option Explicit
  418. Dim pth, im, ex, str, bgcol, ll, vl, al, tm, lm As String
  419. Private Sub Combo1_Click()
  420.          Select Case Combo1.Text
  421.             Case Is = "black"
  422.               Picture2.BackColor = &H0
  423.             Case Is = "blue"
  424.               Picture2.BackColor = &HFF0000
  425.             Case Is = "fuchsia"
  426.               Picture2.BackColor = &HFF00FF
  427.             Case Is = "gray"
  428.               Picture2.BackColor = &H808080
  429.             Case Is = "green"
  430.               Picture2.BackColor = &HC000&
  431.             Case Is = "lime"
  432.               Picture2.BackColor = &H80FF80
  433.             Case Is = "maroon"
  434.               Picture2.BackColor = &H80&
  435.             Case Is = "navy"
  436.               Picture2.BackColor = &HC00000
  437.             Case Is = "olive"
  438.               Picture2.BackColor = &H8000&
  439.             Case Is = "purple"
  440.               Picture2.BackColor = &H800080
  441.             Case Is = "red"
  442.               Picture2.BackColor = &HFF&
  443.             Case Is = "silver"
  444.               Picture2.BackColor = &HC0C0C0
  445.             Case Is = "teal"
  446.               Picture2.BackColor = &H808000
  447.             Case Is = "yellow"
  448.               Picture2.BackColor = &HFFFF&
  449.             Case Is = "aqua"
  450.               Picture2.BackColor = &HFFFF00
  451.             Case Is = "white"
  452.               Picture2.BackColor = &HFFFFFF
  453.          End Select
  454.               bgcol = Combo1.Text
  455. End Sub
  456. Private Sub Command2_Click()
  457. On Error Resume Next
  458.    Dim whereat
  459.    Dim source, dest
  460.      Dim wth As String
  461.      Dim hth As String
  462.      wth = Text2.Text
  463.      hth = Text3.Text
  464.      ex = """"
  465.      im = "images/"
  466.      tm = Text4.Text
  467.      lm = Text1.Text
  468.       whereat = GetSetting(App.Title, "Settings", "site", "")
  469.       source = Dir1.Path & "\" & File1.filename
  470.       dest = App.Path & "\" & whereat & "\images" & "\" & File1.filename
  471.          FileCopy source, dest
  472.    str = " background = " & ex & im & pth & ex & " link = " & ex & ll & ex & _
  473.          " vlink = " & ex & vl & ex & " alink = " & ex & al & ex & _
  474.          " topmargin = " & tm & " leftmargin = " & lm
  475.    frmMain.ActiveForm.txtText.SelItalic = False
  476.    frmMain.ActiveForm.txtText.SelColor = vbBlue
  477.    frmMain.ActiveForm.txtText.SelText = str
  478.    Unload Me
  479. End Sub
  480. Private Sub Command3_Click()
  481.  Unload Me
  482. End Sub
  483. Private Sub Command4_Click()
  484.      Dim sd As String
  485.      Dim shade As String
  486.          sd = """"
  487.          shade = Combo1.Text
  488.          tm = Text4.Text
  489.          lm = Text1.Text
  490.     frmMain.ActiveForm.txtText.SelItalic = False
  491.     frmMain.ActiveForm.txtText.SelColor = vbBlue
  492.     frmMain.ActiveForm.txtText.SelText = _
  493.     " bgcolor = " & sd & shade & sd & " link = " & sd & ll & sd & _
  494.       " vlink = " & sd & vl & sd & " alink = " & sd & al & sd & _
  495.       " topmargin = " & tm & " leftmargin = " & lm
  496.     Unload Me
  497. End Sub
  498. Private Sub Combo4_Click()
  499.          Select Case Combo4.Text
  500.             Case Is = "black"
  501.               Picture5.BackColor = &H0
  502.             Case Is = "blue"
  503.               Picture5.BackColor = &HFF0000
  504.             Case Is = "fuchsia"
  505.               Picture5.BackColor = &HFF00FF
  506.             Case Is = "gray"
  507.               Picture5.BackColor = &H808080
  508.             Case Is = "green"
  509.               Picture5.BackColor = &HC000&
  510.             Case Is = "lime"
  511.               Picture5.BackColor = &H80FF80
  512.             Case Is = "maroon"
  513.               Picture5.BackColor = &H80&
  514.             Case Is = "navy"
  515.               Picture5.BackColor = &HC00000
  516.             Case Is = "olive"
  517.               Picture5.BackColor = &H8000&
  518.             Case Is = "purple"
  519.               Picture5.BackColor = &H800080
  520.             Case Is = "red"
  521.               Picture5.BackColor = &HFF&
  522.             Case Is = "silver"
  523.               Picture5.BackColor = &HC0C0C0
  524.             Case Is = "teal"
  525.               Picture5.BackColor = &H808000
  526.             Case Is = "yellow"
  527.               Picture5.BackColor = &HFFFF&
  528.             Case Is = "aqua"
  529.               Picture5.BackColor = &HFFFF00
  530.             Case Is = "white"
  531.               Picture5.BackColor = &HFFFFFF
  532.          End Select
  533.              al = Combo4.Text
  534. End Sub
  535. Private Sub Combo3_Click()
  536.          Select Case Combo3.Text
  537.             Case Is = "black"
  538.               Picture4.BackColor = &H0
  539.             Case Is = "blue"
  540.               Picture4.BackColor = &HFF0000
  541.             Case Is = "fuchsia"
  542.               Picture4.BackColor = &HFF00FF
  543.             Case Is = "gray"
  544.               Picture4.BackColor = &H808080
  545.             Case Is = "green"
  546.               Picture4.BackColor = &HC000&
  547.             Case Is = "lime"
  548.               Picture4.BackColor = &H80FF80
  549.             Case Is = "maroon"
  550.               Picture4.BackColor = &H80&
  551.             Case Is = "navy"
  552.               Picture4.BackColor = &HC00000
  553.             Case Is = "olive"
  554.               Picture4.BackColor = &H8000&
  555.             Case Is = "purple"
  556.               Picture4.BackColor = &H800080
  557.             Case Is = "red"
  558.               Picture4.BackColor = &HFF&
  559.             Case Is = "silver"
  560.               Picture4.BackColor = &HC0C0C0
  561.             Case Is = "teal"
  562.               Picture4.BackColor = &H808000
  563.             Case Is = "yellow"
  564.               Picture4.BackColor = &HFFFF&
  565.             Case Is = "aqua"
  566.               Picture4.BackColor = &HFFFF00
  567.             Case Is = "white"
  568.               Picture4.BackColor = &HFFFFFF
  569.          End Select
  570.               vl = Combo3.Text
  571. End Sub
  572. Private Sub Combo2_Click()
  573.          Select Case Combo2.Text
  574.             Case Is = "black"
  575.               Picture3.BackColor = &H0
  576.             Case Is = "blue"
  577.               Picture3.BackColor = &HFF0000
  578.             Case Is = "fuchsia"
  579.               Picture3.BackColor = &HFF00FF
  580.             Case Is = "gray"
  581.               Picture3.BackColor = &H808080
  582.             Case Is = "green"
  583.               Picture3.BackColor = &HC000&
  584.             Case Is = "lime"
  585.               Picture3.BackColor = &H80FF80
  586.             Case Is = "maroon"
  587.               Picture3.BackColor = &H80&
  588.             Case Is = "navy"
  589.               Picture3.BackColor = &HC00000
  590.             Case Is = "olive"
  591.               Picture3.BackColor = &H8000&
  592.             Case Is = "purple"
  593.               Picture3.BackColor = &H800080
  594.             Case Is = "red"
  595.               Picture3.BackColor = &HFF&
  596.             Case Is = "silver"
  597.               Picture3.BackColor = &HC0C0C0
  598.             Case Is = "teal"
  599.               Picture3.BackColor = &H808000
  600.             Case Is = "yellow"
  601.               Picture3.BackColor = &HFFFF&
  602.             Case Is = "aqua"
  603.               Picture3.BackColor = &HFFFF00
  604.             Case Is = "white"
  605.               Picture3.BackColor = &HFFFFFF
  606.          End Select
  607.             ll = Combo2.Text
  608. End Sub
  609. Private Sub Dir1_Change()
  610.    File1.Path = Dir1.Path
  611. End Sub
  612. Private Sub Drive1_Change()
  613.     On Error GoTo DriveHandler
  614.     Dir1.Path = Drive1.Drive
  615.     Exit Sub
  616. DriveHandler:
  617.        Drive1.Drive = Dir1.Path
  618.     Exit Sub
  619. End Sub
  620. Private Sub File1_Click()
  621. On Error Resume Next
  622.         With File1
  623.         pth = .filename
  624.         Picture6.Picture = LoadPicture(Dir1.Path & "\" & .filename)
  625.         End With
  626.         Text2.Text = Picture6.ScaleWidth
  627.         Text3.Text = Picture6.ScaleHeight
  628. End Sub
  629. Private Sub Form_Load()
  630.           With Combo1
  631.              .AddItem "aqua"
  632.              .AddItem "black"
  633.              .AddItem "blue"
  634.              .AddItem "fuchsia"
  635.              .AddItem "gray"
  636.              .AddItem "green"
  637.              .AddItem "lime"
  638.              .AddItem "maroon"
  639.              .AddItem "navy"
  640.              .AddItem "olive"
  641.              .AddItem "purple"
  642.              .AddItem "red"
  643.              .AddItem "silver"
  644.              .AddItem "teal"
  645.              .AddItem "yellow"
  646.              .AddItem "white"
  647.              .Text = "aqua"
  648.           End With
  649.           
  650.           With Combo2
  651.              .AddItem "aqua"
  652.              .AddItem "black"
  653.              .AddItem "blue"
  654.              .AddItem "fuchsia"
  655.              .AddItem "gray"
  656.              .AddItem "green"
  657.              .AddItem "lime"
  658.              .AddItem "maroon"
  659.              .AddItem "navy"
  660.              .AddItem "olive"
  661.              .AddItem "purple"
  662.              .AddItem "red"
  663.              .AddItem "silver"
  664.              .AddItem "teal"
  665.              .AddItem "yellow"
  666.              .AddItem "white"
  667.              .Text = "blue"
  668.           End With
  669.           
  670.           With Combo3
  671.              .AddItem "aqua"
  672.              .AddItem "black"
  673.              .AddItem "blue"
  674.              .AddItem "fuchsia"
  675.              .AddItem "gray"
  676.              .AddItem "green"
  677.              .AddItem "lime"
  678.              .AddItem "maroon"
  679.              .AddItem "navy"
  680.              .AddItem "olive"
  681.              .AddItem "purple"
  682.              .AddItem "red"
  683.              .AddItem "silver"
  684.              .AddItem "teal"
  685.              .AddItem "yellow"
  686.              .AddItem "white"
  687.              .Text = "maroon"
  688.           End With
  689.           
  690.           With Combo4
  691.              .AddItem "aqua"
  692.              .AddItem "black"
  693.              .AddItem "blue"
  694.              .AddItem "fuchsia"
  695.              .AddItem "gray"
  696.              .AddItem "green"
  697.              .AddItem "lime"
  698.              .AddItem "maroon"
  699.              .AddItem "navy"
  700.              .AddItem "olive"
  701.              .AddItem "purple"
  702.              .AddItem "red"
  703.              .AddItem "silver"
  704.              .AddItem "teal"
  705.              .AddItem "yellow"
  706.              .AddItem "white"
  707.              .Text = "maroon"
  708.           End With
  709.           Picture2.BackColor = &HFFFF00
  710.           Picture3.BackColor = &HFF0000
  711.           Picture4.BackColor = &H80&
  712.           Picture5.BackColor = &H80&
  713.           ll = Combo2.Text
  714.           vl = Combo3.Text
  715.           al = Combo4.Text
  716.      App.HelpFile = App.Path & "\WEBMAGIC.HLP"
  717.      Me.HelpContextID = 36
  718. End Sub
  719. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  720.    frmMain.sbStatusBar.Panels(1).Text = "Formats page background. Press F1 for help"
  721. End Sub
  722.