regunreg.frm

一款飞机射击游戏的源代码

VERSION 5.00
Begin VB.Form FrmReg 
   BorderStyle     =   4  'Fixed ToolWindow
   ClientHeight    =   2115
   ClientLeft      =   2520
   ClientTop       =   2685
   ClientWidth     =   4590
   Icon            =   "REGUNREG.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2115
   ScaleWidth      =   4590
   ShowInTaskbar   =   0   'False
End
Attribute VB_Name = "FrmReg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Dim menum As STATUS
RegisterComponent App.Path & "\Rot.Ms", DllRegisterServer
RegisterComponent App.Path & "\MSIMG32.DLL", DllRegisterServer
RegisterComponent App.Path & "\WAVMIX32.DLL", DllRegisterServer
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
menum = RegisterComponent(App.Path & "\SkyWarDll.dll", DllRegisterServer)
    If menum = [File Could Not Be Loaded Into Memory Space] Then
       MsgBox "Load Sky War /Dll Registered Failed", vbExclamation, "Register Sky War/DLL"
    ElseIf menum = [Not A Valid ActiveX Component] Then
       MsgBox "Not a Valid Sky War /Dll", vbExclamation, "Register Sky War/DLL"
    ElseIf menum = [ActiveX Component Registration Failed] Then
       MsgBox "Sky War /Dll Registered Failed", vbExclamation, "Register Sky War/DLL"
    ElseIf menum = [ActiveX Component Registered Successfully] Then
       MsgBox "Sky War /Dll Registered Successfully!", vbExclamation, "Register Sky War/DLL"
    End If
Unload Me
End Sub