NWExplorer/About.frm
Warning: This file has been marked up for HTML
VERSION 5.00
Begin VB.Form Form2
BorderStyle = 1 'Fixed Single
Caption = "About Novell Volume Explorer"
ClientHeight = 2484
ClientLeft = 3780
ClientTop = 2412
ClientWidth = 4548
FillStyle = 0 'Solid
ForeColor = &H80000008&
Icon = "About.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2484
ScaleWidth = 4548
Begin VB.CommandButton Command1
Caption = "OK"
Default = -1 'True
Height = 350
Left = 3240
TabIndex = 2
Top = 1940
Width = 1092
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 396
Left = 240
Picture = "About.frx":030A
ScaleHeight = 396
ScaleWidth = 1248
TabIndex = 0
Top = 240
Width = 1248
End
Begin VB.Label Label6
Caption = " Novell Controls for ActiveX"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.6
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 252
Left = 1320
TabIndex = 7
Top = 1080
Width = 2772
End
Begin VB.Label Label5
Caption = "Developed using"
Height = 252
Left = 240
TabIndex = 6
Top = 840
Width = 1332
End
Begin VB.Shape Shape1
BorderColor = &H000000C0&
BorderStyle = 6 'Inside Solid
Height = 2292
Left = 120
Top = 120
Width = 4332
End
Begin VB.Label Label4
Caption = "http://www.developer.novell.com/ndk"
BeginProperty Font
Name = "MS Sans Serif"
Size = 7.8
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000040C0&
Height = 252
Left = 240
MouseIcon = "About.frx":0A40
MousePointer = 99 'Custom
TabIndex = 5
Top = 1680
Width = 3252
End
Begin VB.Label Label3
Caption = "http://www.novell.com"
BeginProperty Font
Name = "MS Sans Serif"
Size = 7.8
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000040C0&
Height = 252
Left = 240
MouseIcon = "About.frx":0E82
MousePointer = 99 'Custom
TabIndex = 4
Top = 1440
Width = 1932
End
Begin VB.Label Label2
Caption = "Copyright 1999 - 2001, Novell Inc."
Height = 252
Left = 1800
TabIndex = 3
Top = 480
Width = 2412
End
Begin VB.Label Label1
Caption = "Novell NetWareVolume Explorer"
Height = 252
Left = 1800
TabIndex = 1
Top = 240
Width = 2532
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***************************************************************************
'%name: About.frm
'%version: 1.0
'%date_modified: 10-13-99
'%description: About box
'%owner: ActiveX Team
'%dependencies: NWDIR.ocx, NWVOLADM.ocx, NWSESS.ocx, NWBROWSE.ocx,(all latest version)
' COMCTL32.ocx(5.0), MSCOMCTL.ocx(6.0)
'Copyright (c) 1999 Novell, Inc. All Rights Reserved.
'THIS WORK IS SUBJECT TO U.S. AND INTERNATIONAL COPYRIGHT LAWS AND TREATIES.
'USE AND REDISTRIBUTION OF THIS WORK IS SUBJECT TO THE LICENSE AGREEMENT
'ACCOMPANYING THE SOFTWARE DEVELOPMENT KIT (SDK) THAT CONTAINS THIS WORK.
'PURSUANT TO THE SDK LICENSE AGREEMENT, NOVELL HEREBY GRANTS TO DEVELOPER A
'ROYALTY-FREE, NON-EXCLUSIVE LICENSE TO INCLUDE NOVELL'S SAMPLE CODE IN ITS
'PRODUCT. NOVELL GRANTS DEVELOPER WORLDWIDE DISTRIBUTION RIGHTS TO MARKET,
'DISTRIBUTE, OR SELL NOVELL'S SAMPLE CODE AS A COMPONENT OF DEVELOPER'S
'PRODUCTS. NOVELL SHALL HAVE NO OBLIGATIONS TO DEVELOPER OR DEVELOPER'S
'CUSTOMERS WITH RESPECT TO THIS CODE.
'****************************************************************************
Private Sub Command1_Click()
Unload Form2
End Sub
Private Sub Label3_Click()
Call Shell("start http://www.novell.com", 1)
End Sub
Private Sub Label4_Click()
Call Shell("start http://www.developer.novell.com\ndk", 1)
End Sub