module1.bas

注册使用ocx的例子

Attribute VB_Name = "Module1"
Option Explicit


'
'   S A M P L E   -   P R O G R A M M
'
'       For REGISTRATION.OCX
'
'
'
'
'   Programmed 07/1998 by Mr.INet / Germany
'   (M. Kr鋗er)
'
'
'   Take a look at this small example to see
'   how REGISTRATION.OCX works and can be
'   inserted into your own Project.
'
'   Within this example a fullfunctional
'   SharewareLicence is included. If you
'   are interested in a Licence registered
'   for you, take a look at our Homepage
'   or contact us per e-mail.
'
'
'   For Question, latest Updates and more
'   information try:
'
'   HTTP://www.hotkiss.de/mr.inet/
'
'   Or Contact us per e-mail:
'
'   [e-mail]



Sub CenterForm(Form As Form)

Form.Left = (Screen.Width - Form.Width) / 2
Form.Top = (Screen.Height - Form.Height) / 2

End Sub