home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
code
/
design
/
3ddemo
/
other.bas
< prev
next >
Wrap
BASIC Source File
|
1995-02-26
|
607b
|
40 lines
Option Explicit
Sub CenterForm (fm As Form)
Dim itop%, ileft%
If fm.WindowState = 0 Then
itop% = (Screen.Height - fm.Height) / 2
ileft% = (Screen.Width - fm.Width) / 2
fm.Move ileft%, itop%
End If
End Sub
Sub ExitProgram ()
App3DUnregister
End
End Sub
Sub Main ()
Dim suc%
suc% = App3DRegister()
If suc% Then
Form2.Show
Else
MsgBox "Could Not Register this application with CTL3DV2. Try changing the Declare Statements to call CTL3D.DLL instead. If you get this after doing this, then CTL3D doesn't exist."
End
End If
End Sub