home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / VBMDIXPL.ZIP / ABOUT.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1993-02-14  |  1.8 KB  |  59 lines
  1. VERSION 2.00
  2. Begin Form about 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "About"
  5.    Height          =   4776
  6.    Left            =   2676
  7.    LinkTopic       =   "Form2"
  8.    ScaleHeight     =   4356
  9.    ScaleWidth      =   5724
  10.    Top             =   1488
  11.    Width           =   5820
  12.    Begin PictureBox LogoPic 
  13.       AutoSize        =   -1  'True
  14.       BorderStyle     =   0  'None
  15.       Height          =   612
  16.       Left            =   2520
  17.       ScaleHeight     =   612
  18.       ScaleWidth      =   732
  19.       TabIndex        =   2
  20.       Top             =   2400
  21.       Width           =   732
  22.    End
  23.    Begin CommandButton OK 
  24.       Caption         =   "OK"
  25.       Height          =   372
  26.       Left            =   2160
  27.       TabIndex        =   1
  28.       Top             =   3480
  29.       Width           =   1452
  30.    End
  31.    Begin Label AppName 
  32.       Alignment       =   2  'Center
  33.       AutoSize        =   -1  'True
  34.       Caption         =   "AppName"
  35.       Height          =   192
  36.       Left            =   2400
  37.       TabIndex        =   0
  38.       Top             =   480
  39.       Width           =   852
  40.    End
  41. Sub Form_Load ()
  42.     ' set caption
  43.     about.Caption = "About " + App.Title
  44.     ' set Logo
  45.     about.LogoPic = MdiForm1.Icon
  46.     ' Text
  47.     TheStr$ = App.Title + Chr(10) + Chr(10)
  48.     TheStr$ = TheStr$ + "Copyright <Your Company here> 1993 " + Chr(10) + Chr(10)
  49.     TheStr$ = TheStr$ + "If you like this sample, sent a postcard to :" + Chr(10) + Chr(10)
  50.     TheStr$ = TheStr$ + "Hans-Jochen Schmitt" + Chr(10)
  51.     TheStr$ = TheStr$ + "Paul-Wagner Str. 28" + Chr(10)
  52.     TheStr$ = TheStr$ + "6100 Darmstadt" + Chr(10)
  53.     TheStr$ = TheStr$ + "Germany" + Chr(10)
  54.     about.AppName = TheStr$
  55. End Sub
  56. Sub OK_Click ()
  57.     Unload about
  58. End Sub
  59.