home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / inites / aboutbox.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-05-02  |  6.3 KB  |  156 lines
  1. VERSION 2.00
  2. Begin Form AboutBox 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "ABOUT TESTINI"
  6.    ClientHeight    =   1635
  7.    ClientLeft      =   4290
  8.    ClientTop       =   3135
  9.    ClientWidth     =   4845
  10.    ClipControls    =   0   'False
  11.    FontBold        =   -1  'True
  12.    FontItalic      =   0   'False
  13.    FontName        =   "System"
  14.    FontSize        =   9.75
  15.    FontStrikethru  =   0   'False
  16.    FontUnderline   =   0   'False
  17.    Height          =   2040
  18.    HelpContextID   =   100
  19.    Left            =   4230
  20.    LinkMode        =   1  'Source
  21.    LinkTopic       =   "Form2"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   1635
  25.    ScaleWidth      =   4845
  26.    Top             =   2790
  27.    Width           =   4965
  28.    Begin SSPanel Panel3D3 
  29.       Alignment       =   1  'Left Justify - MIDDLE
  30.       BackColor       =   &H00C0C0C0&
  31.       BevelOuter      =   0  'None
  32.       Caption         =   "Compuserve: 100412,2653"
  33.       Font3D          =   0  'None
  34.       FontBold        =   0   'False
  35.       FontItalic      =   0   'False
  36.       FontName        =   "MS Sans Serif"
  37.       FontSize        =   8.25
  38.       FontStrikethru  =   0   'False
  39.       FontUnderline   =   0   'False
  40.       Height          =   195
  41.       Index           =   2
  42.       Left            =   1260
  43.       TabIndex        =   5
  44.       Top             =   930
  45.       Width           =   2835
  46.    End
  47.    Begin SSPanel Panel3D3 
  48.       Alignment       =   1  'Left Justify - MIDDLE
  49.       BackColor       =   &H00C0C0C0&
  50.       BevelOuter      =   0  'None
  51.       Caption         =   "Christophe Tricaud"
  52.       Font3D          =   0  'None
  53.       FontBold        =   0   'False
  54.       FontItalic      =   0   'False
  55.       FontName        =   "MS Sans Serif"
  56.       FontSize        =   8.25
  57.       FontStrikethru  =   0   'False
  58.       FontUnderline   =   0   'False
  59.       Height          =   225
  60.       Index           =   1
  61.       Left            =   1260
  62.       TabIndex        =   6
  63.       Top             =   720
  64.       Width           =   1935
  65.    End
  66.    Begin CommandButton Cmd_Ok 
  67.       Cancel          =   -1  'True
  68.       Caption         =   "&Ok"
  69.       Default         =   -1  'True
  70.       Height          =   360
  71.       Left            =   3300
  72.       TabIndex        =   2
  73.       Top             =   1200
  74.       Width           =   1500
  75.    End
  76.    Begin SSPanel Panel3D3 
  77.       Alignment       =   1  'Left Justify - MIDDLE
  78.       BackColor       =   &H00C0C0C0&
  79.       BevelOuter      =   0  'None
  80.       Caption         =   "
  81.  TISOFT 1993 - 1994"
  82.       Font3D          =   0  'None
  83.       FontBold        =   0   'False
  84.       FontItalic      =   0   'False
  85.       FontName        =   "MS Sans Serif"
  86.       FontSize        =   8.25
  87.       FontStrikethru  =   0   'False
  88.       FontUnderline   =   0   'False
  89.       Height          =   195
  90.       Index           =   0
  91.       Left            =   1080
  92.       TabIndex        =   3
  93.       Top             =   540
  94.       Width           =   2835
  95.    End
  96.    Begin SSPanel Panel3D1 
  97.       BackColor       =   &H00C0C0C0&
  98.       BevelOuter      =   1  'Inset
  99.       Font3D          =   0  'None
  100.       Height          =   735
  101.       Left            =   180
  102.       TabIndex        =   4
  103.       Top             =   270
  104.       Width           =   795
  105.       Begin PictureBox Pic_ApplicationIcon 
  106.          AutoSize        =   -1  'True
  107.          BackColor       =   &H00C0C0C0&
  108.          BorderStyle     =   0  'None
  109.          Enabled         =   0   'False
  110.          Height          =   480
  111.          HelpContextID   =   2
  112.          Left            =   150
  113.          Picture         =   ABOUTBOX.FRX:0000
  114.          ScaleHeight     =   480
  115.          ScaleWidth      =   480
  116.          TabIndex        =   1
  117.          Top             =   150
  118.          Width           =   480
  119.       End
  120.    End
  121.    Begin Line lin_HorizontalLine1 
  122.       BorderWidth     =   2
  123.       X1              =   1170
  124.       X2              =   4680
  125.       Y1              =   480
  126.       Y2              =   480
  127.    End
  128.    Begin Label Lbl_IconWorks 
  129.       BackColor       =   &H00C0C0C0&
  130.       Caption         =   "TESTINI for WIN 3.1"
  131.       FontBold        =   -1  'True
  132.       FontItalic      =   0   'False
  133.       FontName        =   "MS Sans Serif"
  134.       FontSize        =   18
  135.       FontStrikethru  =   0   'False
  136.       FontUnderline   =   0   'False
  137.       Height          =   450
  138.       Left            =   1140
  139.       TabIndex        =   0
  140.       Top             =   60
  141.       Width           =   3870
  142.    End
  143. '                                                                                                                                                                                                                                                                                                                            ''
  144. '                                                                                                                                                                                                                                                                                                                           '
  145. 'Permet d'afficher la bo
  146. te AboutBox                                                                                                                                                                                                                                                                                      ''
  147. '                                                                                                                                                                                                                                                                                                                        '
  148. '                                                                                                                                                                                                                                                                                                                       '
  149. Sub Cmd_OK_Click ()
  150.     Unload AboutBox
  151. End Sub
  152. Sub Form_Load ()
  153. ' Center the AboutBox on the screen
  154.      Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  155. End Sub
  156.