home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rdblib / logo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  4.5 KB  |  152 lines
  1. VERSION 2.00
  2. Begin Form LogoForm 
  3.    BackColor       =   &H00808080&
  4.    Caption         =   "RDB Common Subroutine & Function Library"
  5.    ClientHeight    =   5505
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1380
  8.    ClientWidth     =   7440
  9.    FontBold        =   -1  'True
  10.    FontItalic      =   0   'False
  11.    FontName        =   "Futura Md BT"
  12.    FontSize        =   8.25
  13.    FontStrikethru  =   0   'False
  14.    FontUnderline   =   0   'False
  15.    Height          =   5910
  16.    Icon            =   LOGO.FRX:0000
  17.    Left            =   1035
  18.    LinkMode        =   1  'Source
  19.    LinkTopic       =   "Form1"
  20.    ScaleHeight     =   5505
  21.    ScaleWidth      =   7440
  22.    Top             =   1035
  23.    Width           =   7560
  24.    Begin CommandButton OKBtn 
  25.       Caption         =   "OK"
  26.       Height          =   615
  27.       Left            =   240
  28.       TabIndex        =   4
  29.       Top             =   2400
  30.       Visible         =   0   'False
  31.       Width           =   735
  32.    End
  33.    Begin PictureBox Picture1 
  34.       AutoSize        =   -1  'True
  35.       BackColor       =   &H00808080&
  36.       BorderStyle     =   0  'None
  37.       FontBold        =   -1  'True
  38.       FontItalic      =   0   'False
  39.       FontName        =   "Futura Md BT"
  40.       FontSize        =   8.25
  41.       FontStrikethru  =   0   'False
  42.       FontUnderline   =   0   'False
  43.       Height          =   3600
  44.       Left            =   1320
  45.       Picture         =   LOGO.FRX:0302
  46.       ScaleHeight     =   3600
  47.       ScaleWidth      =   5040
  48.       TabIndex        =   0
  49.       Top             =   1440
  50.       Width           =   5040
  51.    End
  52.    Begin Timer Timer1 
  53.       Left            =   360
  54.       Top             =   1200
  55.    End
  56.    Begin Label Label1 
  57.       Alignment       =   2  'Center
  58.       AutoSize        =   -1  'True
  59.       BackColor       =   &H00808080&
  60.       Caption         =   "Brought To You By"
  61.       FontBold        =   -1  'True
  62.       FontItalic      =   0   'False
  63.       FontName        =   "Futura Md BT"
  64.       FontSize        =   12
  65.       FontStrikethru  =   0   'False
  66.       FontUnderline   =   0   'False
  67.       ForeColor       =   &H00FF0000&
  68.       Height          =   270
  69.       Index           =   0
  70.       Left            =   2520
  71.       TabIndex        =   2
  72.       Top             =   1080
  73.       Width           =   2190
  74.    End
  75.    Begin Label Version 
  76.       Alignment       =   2  'Center
  77.       BackColor       =   &H00808080&
  78.       Caption         =   "Version "
  79.       FontBold        =   -1  'True
  80.       FontItalic      =   0   'False
  81.       FontName        =   "Futura Md BT"
  82.       FontSize        =   13.5
  83.       FontStrikethru  =   0   'False
  84.       FontUnderline   =   0   'False
  85.       ForeColor       =   &H00FF0000&
  86.       Height          =   255
  87.       Left            =   2760
  88.       TabIndex        =   3
  89.       Top             =   720
  90.       Width           =   1695
  91.    End
  92.    Begin Label TBLabel 
  93.       Alignment       =   2  'Center
  94.       AutoSize        =   -1  'True
  95.       BackColor       =   &H00808080&
  96.       Caption         =   "Common Subroutine && Function Library"
  97.       FontBold        =   -1  'True
  98.       FontItalic      =   0   'False
  99.       FontName        =   "Futura Md BT"
  100.       FontSize        =   19.5
  101.       FontStrikethru  =   0   'False
  102.       FontUnderline   =   0   'False
  103.       ForeColor       =   &H00FF0000&
  104.       Height          =   450
  105.       Left            =   180
  106.       TabIndex        =   1
  107.       Top             =   120
  108.       Width           =   7050
  109.    End
  110. Sub Form_Load ()
  111.     On Error GoTo formerror1
  112.     mousepointer = HOURGLASS
  113.     Version.Caption = "Version " & rb_version
  114.     timer1.Interval = 1000
  115.     SndPlaySound "drum.wav", 2
  116.     SndPlaySound "tada.wav", 2
  117.     On Error Resume Next
  118.     OkBtn.Visible = True
  119.     Exit Sub
  120. formerror1:
  121.     erraction = RB_ErrorHandler("LogoForm", "Form_Load")
  122.     Select Case erraction
  123.     Case 1
  124.         Resume 0
  125.     Case 2
  126.         Resume Next
  127.     End Select
  128. End Sub
  129. Sub OKBtn_Click ()
  130.     mousepointer = DEFAULT
  131.     Unload LogoForm
  132. End Sub
  133. Sub Timer1_Timer ()
  134.     On Error GoTo Timer1error1
  135.     SndPlaySound "rdblib.wav", 2
  136.     junk% = DoEvents()
  137.     SndPlaySound "broghtby.wav", 2
  138.     junk% = DoEvents()
  139.     SndPlaySound "rdbsystm.wav", 2
  140.     timer1.Enabled = False
  141.     mousepointer = DEFAULT
  142.     Exit Sub
  143. Timer1error1:
  144.     erraction = RB_ErrorHandler("LogoForm", "Timer1_Timer")
  145.     Select Case erraction
  146.     Case 1
  147.         Resume 0
  148.     Case 2
  149.         Resume Next
  150.     End Select
  151. End Sub
  152.