home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code2
/
vbmdixpl
/
about.frm
next >
Wrap
Text File
|
1993-02-14
|
2KB
|
66 lines
VERSION 2.00
Begin Form about
BorderStyle = 3 'Fixed Double
Caption = "About"
Height = 4776
Left = 2676
LinkTopic = "Form2"
ScaleHeight = 4356
ScaleWidth = 5724
Top = 1488
Width = 5820
Begin PictureBox LogoPic
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 612
Left = 2520
ScaleHeight = 612
ScaleWidth = 732
TabIndex = 2
Top = 2400
Width = 732
End
Begin CommandButton OK
Caption = "OK"
Height = 372
Left = 2160
TabIndex = 1
Top = 3480
Width = 1452
End
Begin Label AppName
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "AppName"
Height = 192
Left = 2400
TabIndex = 0
Top = 480
Width = 852
End
End
Sub Form_Load ()
' set caption
about.Caption = "About " + App.Title
' set Logo
about.LogoPic = MdiForm1.Icon
' Text
TheStr$ = App.Title + Chr(10) + Chr(10)
TheStr$ = TheStr$ + "Copyright <Your Company here> 1993 " + Chr(10) + Chr(10)
TheStr$ = TheStr$ + "If you like this sample, sent a postcard to :" + Chr(10) + Chr(10)
TheStr$ = TheStr$ + "Hans-Jochen Schmitt" + Chr(10)
TheStr$ = TheStr$ + "Paul-Wagner Str. 28" + Chr(10)
TheStr$ = TheStr$ + "6100 Darmstadt" + Chr(10)
TheStr$ = TheStr$ + "Germany" + Chr(10)
about.AppName = TheStr$
End Sub
Sub OK_Click ()
Unload about
End Sub