home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / GUI_-_Grap19575012182005.psc / FormMain.frm < prev    next >
Text File  |  2005-12-19  |  27KB  |  810 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  3. Begin VB.Form FormMain 
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   12570
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   19095
  10.    Icon            =   "FormMain.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   12570
  15.    ScaleWidth      =   19095
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.PictureBox Picture23 
  19.       Appearance      =   0  'Flat
  20.       AutoSize        =   -1  'True
  21.       BackColor       =   &H80000005&
  22.       BorderStyle     =   0  'None
  23.       ForeColor       =   &H80000008&
  24.       Height          =   1260
  25.       Left            =   11040
  26.       Picture         =   "FormMain.frx":08CA
  27.       ScaleHeight     =   1260
  28.       ScaleWidth      =   1215
  29.       TabIndex        =   29
  30.       ToolTipText     =   "Play Video"
  31.       Top             =   2520
  32.       Visible         =   0   'False
  33.       Width           =   1215
  34.    End
  35.    Begin VB.PictureBox Picture22 
  36.       Appearance      =   0  'Flat
  37.       AutoSize        =   -1  'True
  38.       BackColor       =   &H80000005&
  39.       BorderStyle     =   0  'None
  40.       ForeColor       =   &H80000008&
  41.       Height          =   1260
  42.       Left            =   11040
  43.       Picture         =   "FormMain.frx":591E
  44.       ScaleHeight     =   1260
  45.       ScaleWidth      =   1215
  46.       TabIndex        =   28
  47.       ToolTipText     =   "Play Video"
  48.       Top             =   960
  49.       Visible         =   0   'False
  50.       Width           =   1215
  51.    End
  52.    Begin VB.PictureBox Picture19 
  53.       Appearance      =   0  'Flat
  54.       AutoSize        =   -1  'True
  55.       BackColor       =   &H80000005&
  56.       BorderStyle     =   0  'None
  57.       ForeColor       =   &H80000008&
  58.       Height          =   6375
  59.       Left            =   18120
  60.       Picture         =   "FormMain.frx":A972
  61.       ScaleHeight     =   6375
  62.       ScaleWidth      =   6345
  63.       TabIndex        =   26
  64.       ToolTipText     =   "Play Video"
  65.       Top             =   120
  66.       Visible         =   0   'False
  67.       Width           =   6345
  68.    End
  69.    Begin VB.PictureBox Picture20 
  70.       Appearance      =   0  'Flat
  71.       AutoSize        =   -1  'True
  72.       BackColor       =   &H80000005&
  73.       BorderStyle     =   0  'None
  74.       ForeColor       =   &H80000008&
  75.       Height          =   6375
  76.       Left            =   18120
  77.       Picture         =   "FormMain.frx":E8EB
  78.       ScaleHeight     =   6375
  79.       ScaleWidth      =   6345
  80.       TabIndex        =   25
  81.       ToolTipText     =   "Play Video"
  82.       Top             =   6720
  83.       Visible         =   0   'False
  84.       Width           =   6345
  85.    End
  86.    Begin VB.PictureBox Picture18 
  87.       Appearance      =   0  'Flat
  88.       AutoSize        =   -1  'True
  89.       BackColor       =   &H80000005&
  90.       BorderStyle     =   0  'None
  91.       ForeColor       =   &H80000008&
  92.       Height          =   6375
  93.       Left            =   9480
  94.       Picture         =   "FormMain.frx":12991
  95.       ScaleHeight     =   6375
  96.       ScaleWidth      =   6345
  97.       TabIndex        =   24
  98.       ToolTipText     =   "Play Video"
  99.       Top             =   6600
  100.       Visible         =   0   'False
  101.       Width           =   6345
  102.    End
  103.    Begin VB.PictureBox Picture17 
  104.       Appearance      =   0  'Flat
  105.       AutoSize        =   -1  'True
  106.       BackColor       =   &H80000005&
  107.       BorderStyle     =   0  'None
  108.       ForeColor       =   &H80000008&
  109.       Height          =   1065
  110.       Left            =   12240
  111.       Picture         =   "FormMain.frx":167D0
  112.       ScaleHeight     =   1065
  113.       ScaleWidth      =   1800
  114.       TabIndex        =   23
  115.       ToolTipText     =   "Play Video"
  116.       Top             =   8040
  117.       Visible         =   0   'False
  118.       Width           =   1800
  119.    End
  120.    Begin VB.PictureBox Picture16 
  121.       Appearance      =   0  'Flat
  122.       AutoSize        =   -1  'True
  123.       BackColor       =   &H80000005&
  124.       BorderStyle     =   0  'None
  125.       ForeColor       =   &H80000008&
  126.       Height          =   1080
  127.       Left            =   10680
  128.       Picture         =   "FormMain.frx":1CBEC
  129.       ScaleHeight     =   1080
  130.       ScaleWidth      =   1185
  131.       TabIndex        =   22
  132.       ToolTipText     =   "Play Video"
  133.       Top             =   8040
  134.       Visible         =   0   'False
  135.       Width           =   1185
  136.    End
  137.    Begin VB.PictureBox Picture15 
  138.       Appearance      =   0  'Flat
  139.       AutoSize        =   -1  'True
  140.       BackColor       =   &H80000005&
  141.       BorderStyle     =   0  'None
  142.       ForeColor       =   &H80000008&
  143.       Height          =   1200
  144.       Left            =   16200
  145.       Picture         =   "FormMain.frx":20FB0
  146.       ScaleHeight     =   1200
  147.       ScaleWidth      =   1320
  148.       TabIndex        =   21
  149.       ToolTipText     =   "Open Graphics Program"
  150.       Top             =   120
  151.       Visible         =   0   'False
  152.       Width           =   1320
  153.    End
  154.    Begin VB.PictureBox Picture14 
  155.       Appearance      =   0  'Flat
  156.       AutoSize        =   -1  'True
  157.       BackColor       =   &H80000005&
  158.       BorderStyle     =   0  'None
  159.       ForeColor       =   &H80000008&
  160.       Height          =   1080
  161.       Left            =   16200
  162.       Picture         =   "FormMain.frx":26274
  163.       ScaleHeight     =   1080
  164.       ScaleWidth      =   1125
  165.       TabIndex        =   20
  166.       ToolTipText     =   "Play Media Clips"
  167.       Top             =   1560
  168.       Visible         =   0   'False
  169.       Width           =   1125
  170.    End
  171.    Begin VB.PictureBox Picture13 
  172.       Appearance      =   0  'Flat
  173.       AutoSize        =   -1  'True
  174.       BackColor       =   &H80000005&
  175.       BorderStyle     =   0  'None
  176.       ForeColor       =   &H80000008&
  177.       Height          =   1065
  178.       Left            =   16200
  179.       Picture         =   "FormMain.frx":2A2D8
  180.       ScaleHeight     =   1065
  181.       ScaleWidth      =   1275
  182.       TabIndex        =   19
  183.       ToolTipText     =   "Browse Your Favourite Documents"
  184.       Top             =   2760
  185.       Visible         =   0   'False
  186.       Width           =   1275
  187.    End
  188.    Begin VB.PictureBox Picture10 
  189.       AutoSize        =   -1  'True
  190.       Height          =   1125
  191.       Left            =   16200
  192.       Picture         =   "FormMain.frx":2EA1C
  193.       ScaleHeight     =   1065
  194.       ScaleWidth      =   1800
  195.       TabIndex        =   16
  196.       Top             =   3960
  197.       Width           =   1860
  198.    End
  199.    Begin VB.PictureBox Picture9 
  200.       AutoSize        =   -1  'True
  201.       Height          =   1140
  202.       Left            =   16200
  203.       Picture         =   "FormMain.frx":34E38
  204.       ScaleHeight     =   1080
  205.       ScaleWidth      =   1185
  206.       TabIndex        =   15
  207.       Top             =   5160
  208.       Width           =   1245
  209.    End
  210.    Begin VB.PictureBox Picture8 
  211.       AutoSize        =   -1  'True
  212.       Height          =   1260
  213.       Left            =   16200
  214.       Picture         =   "FormMain.frx":391FC
  215.       ScaleHeight     =   1200
  216.       ScaleWidth      =   1320
  217.       TabIndex        =   14
  218.       Top             =   6360
  219.       Width           =   1380
  220.    End
  221.    Begin VB.PictureBox Picture7 
  222.       AutoSize        =   -1  'True
  223.       Height          =   1140
  224.       Left            =   16200
  225.       Picture         =   "FormMain.frx":3E4C0
  226.       ScaleHeight     =   1080
  227.       ScaleWidth      =   1125
  228.       TabIndex        =   13
  229.       Top             =   7680
  230.       Width           =   1185
  231.    End
  232.    Begin VB.PictureBox Picture6 
  233.       AutoSize        =   -1  'True
  234.       Height          =   1125
  235.       Left            =   16200
  236.       Picture         =   "FormMain.frx":42524
  237.       ScaleHeight     =   1065
  238.       ScaleWidth      =   1275
  239.       TabIndex        =   12
  240.       Top             =   8880
  241.       Width           =   1335
  242.    End
  243.    Begin VB.Timer Timer6 
  244.       Interval        =   100
  245.       Left            =   120
  246.       Top             =   6480
  247.    End
  248.    Begin VB.Timer Timer5 
  249.       Interval        =   7000
  250.       Left            =   120
  251.       Top             =   6960
  252.    End
  253.    Begin VB.Timer Timer4 
  254.       Enabled         =   0   'False
  255.       Interval        =   10
  256.       Left            =   120
  257.       Top             =   7440
  258.    End
  259.    Begin VB.Timer Timer3 
  260.       Enabled         =   0   'False
  261.       Interval        =   1
  262.       Left            =   120
  263.       Top             =   7920
  264.    End
  265.    Begin VB.Timer Timer2 
  266.       Interval        =   4500
  267.       Left            =   120
  268.       Top             =   8400
  269.    End
  270.    Begin VB.Timer Timer1 
  271.       Interval        =   150
  272.       Left            =   120
  273.       Top             =   8880
  274.    End
  275.    Begin VB.PictureBox PicmainSkin 
  276.       Appearance      =   0  'Flat
  277.       AutoRedraw      =   -1  'True
  278.       AutoSize        =   -1  'True
  279.       BackColor       =   &H80000005&
  280.       BorderStyle     =   0  'None
  281.       ForeColor       =   &H80000008&
  282.       Height          =   6375
  283.       Left            =   0
  284.       Picture         =   "FormMain.frx":46C68
  285.       ScaleHeight     =   6375
  286.       ScaleWidth      =   6345
  287.       TabIndex        =   0
  288.       Top             =   0
  289.       Width           =   6345
  290.       Begin VB.PictureBox Picture21 
  291.          Appearance      =   0  'Flat
  292.          AutoSize        =   -1  'True
  293.          BackColor       =   &H80000005&
  294.          BorderStyle     =   0  'None
  295.          ForeColor       =   &H80000008&
  296.          Height          =   1260
  297.          Left            =   4370
  298.          Picture         =   "FormMain.frx":4AB2F
  299.          ScaleHeight     =   1260
  300.          ScaleWidth      =   1215
  301.          TabIndex        =   27
  302.          ToolTipText     =   "Play Video"
  303.          Top             =   3840
  304.          Visible         =   0   'False
  305.          Width           =   1215
  306.       End
  307.       Begin VB.PictureBox Picture5 
  308.          Appearance      =   0  'Flat
  309.          AutoSize        =   -1  'True
  310.          BackColor       =   &H80000005&
  311.          BorderStyle     =   0  'None
  312.          ForeColor       =   &H80000008&
  313.          Height          =   1065
  314.          Left            =   4475
  315.          Picture         =   "FormMain.frx":4FB83
  316.          ScaleHeight     =   1065
  317.          ScaleWidth      =   1800
  318.          TabIndex        =   11
  319.          ToolTipText     =   "Play Video"
  320.          Top             =   2400
  321.          Visible         =   0   'False
  322.          Width           =   1800
  323.       End
  324.       Begin VB.PictureBox Picture4 
  325.          Appearance      =   0  'Flat
  326.          AutoSize        =   -1  'True
  327.          BackColor       =   &H80000005&
  328.          BorderStyle     =   0  'None
  329.          ForeColor       =   &H80000008&
  330.          Height          =   1080
  331.          Left            =   2640
  332.          Picture         =   "FormMain.frx":55F9F
  333.          ScaleHeight     =   1080
  334.          ScaleWidth      =   1185
  335.          TabIndex        =   10
  336.          ToolTipText     =   "Play Video"
  337.          Top             =   4940
  338.          Visible         =   0   'False
  339.          Width           =   1185
  340.       End
  341.       Begin VB.PictureBox Picture2 
  342.          Appearance      =   0  'Flat
  343.          AutoSize        =   -1  'True
  344.          BackColor       =   &H80000005&
  345.          BorderStyle     =   0  'None
  346.          ForeColor       =   &H80000008&
  347.          Height          =   1080
  348.          Left            =   460
  349.          Picture         =   "FormMain.frx":5A363
  350.          ScaleHeight     =   1080
  351.          ScaleWidth      =   1125
  352.          TabIndex        =   9
  353.          ToolTipText     =   "Play Media Clips"
  354.          Top             =   1435
  355.          Visible         =   0   'False
  356.          Width           =   1125
  357.       End
  358.       Begin VB.PictureBox Picture3 
  359.          Appearance      =   0  'Flat
  360.          AutoSize        =   -1  'True
  361.          BackColor       =   &H80000005&
  362.          BorderStyle     =   0  'None
  363.          ForeColor       =   &H80000008&
  364.          Height          =   1200
  365.          Left            =   500
  366.          Picture         =   "FormMain.frx":5E3C7
  367.          ScaleHeight     =   1200
  368.          ScaleWidth      =   1320
  369.          TabIndex        =   8
  370.          ToolTipText     =   "Open Graphics Program"
  371.          Top             =   3775
  372.          Visible         =   0   'False
  373.          Width           =   1320
  374.       End
  375.       Begin MSComctlLib.ProgressBar ProgressBar1 
  376.          Height          =   255
  377.          Left            =   2040
  378.          TabIndex        =   6
  379.          Top             =   4800
  380.          Width           =   2415
  381.          _ExtentX        =   4260
  382.          _ExtentY        =   450
  383.          _Version        =   393216
  384.          Appearance      =   0
  385.          Scrolling       =   1
  386.       End
  387.       Begin VB.PictureBox Picture1 
  388.          Appearance      =   0  'Flat
  389.          AutoSize        =   -1  'True
  390.          BackColor       =   &H80000005&
  391.          BorderStyle     =   0  'None
  392.          ForeColor       =   &H80000008&
  393.          Height          =   1065
  394.          Left            =   2525
  395.          Picture         =   "FormMain.frx":6368B
  396.          ScaleHeight     =   1065
  397.          ScaleWidth      =   1275
  398.          TabIndex        =   5
  399.          ToolTipText     =   "Browse Your Favourite Documents"
  400.          Top             =   300
  401.          Visible         =   0   'False
  402.          Width           =   1275
  403.       End
  404.       Begin VB.Label Label5 
  405.          Alignment       =   2  'Center
  406.          BackStyle       =   0  'Transparent
  407.          Caption         =   "LOADING"
  408.          ForeColor       =   &H00FFFFFF&
  409.          Height          =   255
  410.          Left            =   2800
  411.          TabIndex        =   7
  412.          Top             =   5160
  413.          Width           =   975
  414.          WordWrap        =   -1  'True
  415.       End
  416.       Begin VB.Label Label1 
  417.          Alignment       =   2  'Center
  418.          BackColor       =   &H00EDAC8B&
  419.          BackStyle       =   0  'Transparent
  420.          BeginProperty Font 
  421.             Name            =   "Impact"
  422.             Size            =   27.75
  423.             Charset         =   0
  424.             Weight          =   400
  425.             Underline       =   0   'False
  426.             Italic          =   0   'False
  427.             Strikethrough   =   0   'False
  428.          EndProperty
  429.          Height          =   675
  430.          Left            =   2070
  431.          TabIndex        =   1
  432.          Top             =   1440
  433.          Width           =   2235
  434.       End
  435.       Begin VB.Label Label4 
  436.          Alignment       =   2  'Center
  437.          BackColor       =   &H00EDAC8B&
  438.          BackStyle       =   0  'Transparent
  439.          BeginProperty Font 
  440.             Name            =   "Impact"
  441.             Size            =   18
  442.             Charset         =   0
  443.             Weight          =   400
  444.             Underline       =   0   'False
  445.             Italic          =   0   'False
  446.             Strikethrough   =   0   'False
  447.          EndProperty
  448.          Height          =   1755
  449.          Left            =   2160
  450.          TabIndex        =   4
  451.          Top             =   2880
  452.          Width           =   2175
  453.          WordWrap        =   -1  'True
  454.       End
  455.       Begin VB.Label Label3 
  456.          Alignment       =   2  'Center
  457.          AutoSize        =   -1  'True
  458.          BackColor       =   &H00EDAC8B&
  459.          BackStyle       =   0  'Transparent
  460.          BeginProperty Font 
  461.             Name            =   "Impact"
  462.             Size            =   27.75
  463.             Charset         =   0
  464.             Weight          =   400
  465.             Underline       =   0   'False
  466.             Italic          =   0   'False
  467.             Strikethrough   =   0   'False
  468.          EndProperty
  469.          Height          =   675
  470.          Left            =   6735
  471.          TabIndex        =   3
  472.          Top             =   2880
  473.          Width           =   135
  474.       End
  475.       Begin VB.Label Label2 
  476.          AutoSize        =   -1  'True
  477.          BackColor       =   &H00EDAC8B&
  478.          BackStyle       =   0  'Transparent
  479.          BeginProperty Font 
  480.             Name            =   "Impact"
  481.             Size            =   72
  482.             Charset         =   0
  483.             Weight          =   400
  484.             Underline       =   0   'False
  485.             Italic          =   0   'False
  486.             Strikethrough   =   0   'False
  487.          EndProperty
  488.          Height          =   1755
  489.          Left            =   1080
  490.          TabIndex        =   2
  491.          Top             =   2400
  492.          Width           =   255
  493.       End
  494.    End
  495.    Begin VB.PictureBox Picture11 
  496.       AutoSize        =   -1  'True
  497.       Height          =   6435
  498.       Left            =   0
  499.       Picture         =   "FormMain.frx":67DCF
  500.       ScaleHeight     =   6375
  501.       ScaleWidth      =   9360
  502.       TabIndex        =   17
  503.       Top             =   6480
  504.       Width           =   9420
  505.    End
  506.    Begin VB.PictureBox Picture12 
  507.       Appearance      =   0  'Flat
  508.       AutoSize        =   -1  'True
  509.       BackColor       =   &H80000005&
  510.       ForeColor       =   &H80000008&
  511.       Height          =   6405
  512.       Left            =   0
  513.       Picture         =   "FormMain.frx":6C2D4
  514.       ScaleHeight     =   6375
  515.       ScaleWidth      =   9360
  516.       TabIndex        =   18
  517.       Top             =   0
  518.       Width           =   9390
  519.    End
  520. End
  521. Attribute VB_Name = "FormMain"
  522. Attribute VB_GlobalNameSpace = False
  523. Attribute VB_Creatable = False
  524. Attribute VB_PredeclaredId = True
  525. Attribute VB_Exposed = False
  526. Dim framecount As Integer
  527. Dim FRAMECOUNT2 As Integer
  528. Dim TOPEND As Integer
  529. Dim LEFTEND As Integer
  530.  
  531.  
  532.  
  533. Dim XX As Integer
  534. '====================================================================
  535. ' Set up Screen Shape based on PicmainSkin
  536. '====================================================================
  537.  
  538.  
  539.  
  540. Private Sub Form_Load()
  541.     Dim WindowRegion As Long
  542.     PicmainSkin.ScaleMode = vbPixels
  543.     PicmainSkin.AutoRedraw = True
  544.     PicmainSkin.AutoSize = True
  545.     PicmainSkin.BorderStyle = vbBSNone
  546.     Me.BorderStyle = vbBSNone
  547.     'Set PicmainSkin.Picture = LoadPicture(App.Path & "\1.gif")
  548.     Me.Width = PicmainSkin.Width
  549.     Me.Height = PicmainSkin.Height
  550.     WindowRegion = MakeRegion(PicmainSkin)
  551.     SetWindowRgn Me.hWnd, WindowRegion, True
  552. End Sub
  553.  
  554.  
  555.  
  556.  
  557.  
  558.  
  559. '====================================================================
  560. ' Allow movement of form with mouse
  561. '====================================================================
  562.  
  563. Private Sub PicmainSkin_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  564.       ReleaseCapture
  565.       SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
  566. End Sub
  567.  
  568. '====================================================================
  569. ' Allow Closure of form with Double Click
  570. '====================================================================
  571. Private Sub PicmainSkin_DblClick()
  572. End
  573. End Sub
  574.  
  575. Private Sub Picture1_Click()
  576. On Error GoTo messageword
  577. Shell "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE"
  578. Exit Sub
  579. messageword:
  580. Label4.Caption = "Microsoft Word (2003) Not Installed"
  581. End Sub
  582.  
  583. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  584. Set Picture1.Picture = Picture6.Picture 'LoadPicture(App.Path & "\prog1-2.bmp")
  585. Me.Label4.Caption = "Word Processing"
  586. End Sub
  587.  
  588. Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  589. Set Picture1.Picture = Picture13.Picture ' LoadPicture(App.Path & "\prog1-1.bmp")
  590. Me.Label4.Caption = ""
  591. End Sub
  592.  
  593. Private Sub Picture2_Click()
  594. On Error GoTo errormessage1
  595.  
  596. Shell "C:\Program Files\Windows Media Player\wmplayer.exe"
  597. Exit Sub
  598. errormessage1:
  599. Label4.Caption = "Windows Media Player Not Installed"
  600. End Sub
  601.  
  602. Private Sub Picture21_Click()
  603. On Error GoTo errormessage21
  604.  
  605. Shell "C:\Program Files\Internet Explorer\iexplore.exe"
  606. Exit Sub
  607. errormessage21:
  608. Label4.Caption = "Internet Explorer Not installed"
  609. End Sub
  610.  
  611.  
  612.  
  613. Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  614. Set Picture2.Picture = Picture7.Picture 'LoadPicture(App.Path & "\prog2-2.bmp")
  615. Me.Label4.Caption = "Play Media"
  616. End Sub
  617.  
  618. Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  619. Set Picture2.Picture = Picture14.Picture  'LoadPicture(App.Path & "\prog2-1.bmp")
  620. Me.Label4.Caption = ""
  621. End Sub
  622.  
  623. Private Sub Picture3_Click()
  624. On Error GoTo errormessage2
  625. Shell "C:\Program Files\Adobe\Photoshop 7.0\Photoshop.exe"
  626. Exit Sub
  627. errormessage2:
  628. Label4.Caption = "Adobe Photoshop 7 Not installed"
  629.  
  630. End Sub
  631.  
  632. Private Sub Picture3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  633. Set Picture3.Picture = Picture8.Picture  ' LoadPicture(App.Path & "\prog3-2.bmp")
  634. Me.Label4.Caption = "Graphics"
  635. End Sub
  636. Private Sub Picture3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  637. Set Picture3.Picture = Picture15.Picture ' LoadPicture(App.Path & "\prog3-1.bmp")
  638. Me.Label4.Caption = ""
  639. End Sub
  640.  
  641. Private Sub Picture4_Click()
  642. On Error GoTo message3
  643. Shell "C:\Program Files\Real\RealOne Player\realplay.exe"
  644. Exit Sub
  645. message3:
  646. Label4.Caption = "Real Player One Not Installed"
  647. End Sub
  648.  
  649. Private Sub Picture4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  650. Set Picture4.Picture = Picture9.Picture 'LoadPicture(App.Path & "\prog4-2.bmp")
  651. Me.Label4.Caption = "Play Video"
  652. End Sub
  653.  
  654. Private Sub Picture4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  655. Set Picture4.Picture = Picture16.Picture 'LoadPicture(App.Path & "\prog4-1.bmp")
  656. Me.Label4.Caption = ""
  657. End Sub
  658.  
  659. Private Sub Picture5_Click()
  660. End
  661. End Sub
  662.  
  663. Private Sub Picture5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  664. Set Picture5.Picture = Picture10.Picture 'LoadPicture(App.Path & "\exit2.bmp")
  665. Me.Label4.Caption = "Exit"
  666. End Sub
  667.  
  668. Private Sub Picture5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  669. Set Picture5.Picture = Picture17.Picture ' LoadPicture(App.Path & "\exit1.bmp")
  670. Me.Label4.Caption = ""
  671. End Sub
  672.  
  673. Private Sub Picture21_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  674. Set Picture21.Picture = Picture23.Picture 'LoadPicture(App.Path & "\exit2.bmp")
  675. Me.Label4.Caption = "Internet"
  676. End Sub
  677.  
  678. Private Sub Picture21_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  679. Set Picture21.Picture = Picture22.Picture ' LoadPicture(App.Path & "\exit1.bmp")
  680. Me.Label4.Caption = ""
  681. End Sub
  682.  
  683.  
  684. '====================================================================
  685. ' Rotatae through pics from 1 to 11 and then back again
  686. '====================================================================
  687. Private Sub Timer1_Timer()
  688. framecount = framecount + 1
  689.  
  690.  
  691. If framecount = 1 Then Me.Label1.Caption = "G"
  692. If framecount = 2 Then Me.Label1.Caption = "Gr"
  693. If framecount = 3 Then Me.Label1.Caption = "Gra"
  694. If framecount = 4 Then Me.Label1.Caption = "Grap"
  695. If framecount = 5 Then Me.Label1.Caption = "Graph"
  696. If framecount = 6 Then Me.Label1.Caption = "Graphi"
  697. If framecount = 7 Then Me.Label1.Caption = "Graphic"
  698. If framecount = 8 Then Me.Label1.Caption = "Graphica"
  699. If framecount = 9 Then Me.Label1.Caption = "Graphical"
  700.  
  701. If framecount = 10 Then Me.Label2.Caption = "U"
  702. If framecount = 11 Then Me.Label2.Caption = "US"
  703. If framecount = 12 Then Me.Label2.Caption = "USE"
  704. If framecount = 13 Then Me.Label2.Caption = "USER"
  705.     
  706. If framecount = 20 Then Set PicmainSkin.Picture = Picture18.Picture 'LoadPicture(App.Path & "\2.gif")
  707. If framecount = 22 Then Set PicmainSkin.Picture = Picture19.Picture 'LoadPicture(App.Path & "\3.gif")
  708. If framecount = 24 Then Set PicmainSkin.Picture = Picture20.Picture ' LoadPicture(App.Path & "\4.gif"): Timer1.Enabled = False
  709.  
  710.  
  711. End Sub
  712.  
  713. Private Sub Timer2_Timer()
  714. Timer2.Enabled = False
  715. Timer3.Enabled = True
  716. End Sub
  717.  
  718. Private Sub Timer3_Timer()
  719.  
  720. XX = XX + 1
  721.  
  722. Me.Left = Me.Left - 20
  723.  
  724. If XX = 100 Then Timer3.Enabled = False: Call panel1
  725.  
  726. End Sub
  727.  
  728. Private Sub panel1()
  729.     Dim WindowRegion As Long
  730.     PicmainSkin.ScaleMode = vbPixels
  731.     PicmainSkin.AutoRedraw = True
  732.     PicmainSkin.AutoSize = True
  733.     PicmainSkin.BorderStyle = vbBSNone
  734.     Me.BorderStyle = vbBSNone
  735.     'Picture12.Top = 0: Picture12.Left = 0
  736.     Set PicmainSkin.Picture = Picture11.Picture 'LoadPicture(App.Path & "\panel2.gif")
  737.     Me.Width = PicmainSkin.Width
  738.     Me.Height = PicmainSkin.Height
  739.     WindowRegion = MakeRegion(PicmainSkin)
  740.     SetWindowRgn Me.hWnd, WindowRegion, True
  741.     Timer4.Enabled = True
  742. End Sub
  743.  
  744.  
  745.  
  746. Private Sub Timer4_Timer()
  747. FRAMECOUNT2 = FRAMECOUNT2 + 1
  748.  
  749.  
  750. If FRAMECOUNT2 = 1 Then Me.Label3.Caption = "I"
  751. If FRAMECOUNT2 = 2 Then Me.Label3.Caption = "IN"
  752. If FRAMECOUNT2 = 3 Then Me.Label3.Caption = "INY"
  753. If FRAMECOUNT2 = 4 Then Me.Label3.Caption = "INYE"
  754. If FRAMECOUNT2 = 5 Then Me.Label3.Caption = "INYER"
  755. If FRAMECOUNT2 = 6 Then Me.Label3.Caption = "INYERF"
  756. If FRAMECOUNT2 = 7 Then Me.Label3.Caption = "INYERFA"
  757. If FRAMECOUNT2 = 8 Then Me.Label3.Caption = "INYERFAC"
  758. If FRAMECOUNT2 = 9 Then Me.Label3.Caption = "INYERFACE": Timer4.Enabled = False:
  759.  
  760. End Sub
  761.  
  762. Private Sub Timer5_Timer()
  763.  
  764.  
  765. Call screen2: Timer5.Enabled = False
  766.  
  767.  
  768.  
  769. End Sub
  770.  
  771. Private Sub screen2()
  772.  
  773. Me.Label1.Caption = ""
  774. Me.Label2.Caption = ""
  775. Me.Label3.Caption = ""
  776.  
  777. Form1.Top = 0
  778. Form1.Left = 0
  779. Form1.Show
  780.  
  781. TOPEND = FormMain.Top + 2800
  782. LEFTEND = FormMain.Left + 5400
  783.  
  784. For i = 1 To 100
  785. Form1.Top = Form1.Top + TOPEND / 100
  786. Form1.Left = Form1.Left + LEFTEND / 100
  787. Next i
  788. Form1.Hide
  789. 'Picture12.Top = 0: Picture12.Left = 0
  790.     Set PicmainSkin.Picture = Picture12.Picture 'LoadPicture(App.Path & "\panel3.gif")
  791.  
  792. Picture1.Visible = True
  793. Picture2.Visible = True
  794. Picture3.Visible = True
  795. Picture4.Visible = True
  796. Picture5.Visible = True
  797. Picture21.Visible = True
  798.  
  799. End Sub
  800.  
  801.  
  802. Private Sub Timer6_Timer()
  803. Me.ProgressBar1.Value = Me.ProgressBar1.Value + 2
  804. Me.Label5.Caption = "Loading"
  805.  
  806. If Me.ProgressBar1.Value = 100 Then Timer6.Enabled = False: ProgressBar1.Visible = False: Me.Label5.Visible = False
  807.  
  808.  
  809. End Sub
  810.