VERSION 5.00 Begin VB.Form frmSplash BorderStyle = 0 'None ClientHeight = 3675 ClientLeft = 0 ClientTop = 0 ClientWidth = 5970 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False Picture = "frmSplash.frx":0000 ScaleHeight = 3675 ScaleWidth = 5970 ShowInTaskbar = 0 'False StartUpPosition = 2 'CenterScreen Begin VB.Label Label1 BackStyle = 0 'Transparent Height = 2175 Left = 3480 TabIndex = 0 Top = 120 Width = 2355 End End Attribute VB_Name = "frmSplash" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ' Copyright (C) 1999-2001 Microsoft Corporation. All Rights Reserved. ' ' File: frmSplash.frm ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Form_Load() Label1.Caption = "This sample will demonstrate how to create many of the features found in Netmeeting with Visual Basic and DirectX8." & _ vbCrLf & vbCrLf & vbCrLf & "Microsoft® Netmeeting® is ©Copyright Microsoft 1996-2001" Me.Show DoEvents 'Now wait for a short time Sleep 1500 End Sub