home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Best of Windows 95.com 1996 September
/
WIN95_09964.iso
/
program
/
vbmax3d.zip
/
3DDemo.bas
< prev
next >
Wrap
BASIC Source File
|
1996-06-09
|
681b
|
28 lines
Attribute VB_Name = "bas3D"
Option Explicit
Public Const gnNORMAL = 0
Public Const gnRAISED = 1
Public Const gnRECESSED = 2
Public Const gnEMBOSSED_RAISED = 3
Public Const gnEMBOSSED_RECESSED = 4
Public Const gnFLOATING = 5
Public Const gnOUTLINE_RIGHT = 6
Public Const gnOUTLINE_LEFT = 7
Public Const gnPROJECTED = 8
Public Const gnUSE_CONTROL_FONT = 1
Public Const gnLIGHT_SHADOW = 0
Public Const gnDARK_SHADOW = 1
Public Const gnLEFT_JUSTIFY = 0
Public Const gnRIGHT_JUSTIFY = 1
Public Const gnCENTER = 2
Sub CenterForm(roForm As Form)
With roForm
.Move (Screen.Width - .Width) \ 2, (Screen.Height - .Height) \ 2
End With
End Sub