info.frm

注册使用ocx的例子

VERSION 5.00
Begin VB.Form frmInfo 
   Caption         =   "Info"
   ClientHeight    =   7410
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7950
   LinkTopic       =   "Form1"
   ScaleHeight     =   7410
   ScaleWidth      =   7950
   StartUpPosition =   3  'Windows-Standard
   Begin VB.ListBox List1 
      Height          =   5715
      Left            =   360
      TabIndex        =   1
      Top             =   540
      Width           =   6975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "&Close"
      Height          =   495
      Left            =   2700
      TabIndex        =   0
      Top             =   6600
      Width           =   3375
   End
End
Attribute VB_Name = "frmInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()

Unload frmInfo

End Sub

Private Sub Form_Load()

Call CenterForm(frmInfo)

'   Do you want fresh information's ??? :)

frmMenue.Registration_Info1.Refresh

List1.Clear

List1.AddItem "INFO_Copyright: " & frmMenue.Registration_Info1.INFO_Copyright
List1.AddItem "INFO_FirmenName: " & frmMenue.Registration_Info1.INFO_FirmenName
List1.AddItem "INFO_Produktname: " & frmMenue.Registration_Info1.INFO_Produktname

List1.AddItem "LIZENZ_AcceptAtDate: " & frmMenue.Registration_Info1.LIZENZ_AcceptAtDate
List1.AddItem "LIZENZ_AcceptAtTime: " & frmMenue.Registration_Info1.LIZENZ_AcceptAtTime
List1.AddItem "LIZENZ_Accepted: " & frmMenue.Registration_Info1.LIZENZ_Accepted
List1.AddItem "LIZENZ_Lizenztext: " & frmMenue.Registration_Info1.LIZENZ_Lizenztext

List1.AddItem "REG_Korrekt: " & frmMenue.Registration_Info1.REG_Korrekt ' Is the Registration korrekt ???
List1.AddItem "REG_Registered: " & frmMenue.Registration_Info1.REG_Registered
List1.AddItem "REG_Serialnumber: " & frmMenue.Registration_Info1.REG_Serialnumber
List1.AddItem "REG_String1: " & frmMenue.Registration_Info1.REG_String1
List1.AddItem "REG_String2: " & frmMenue.Registration_Info1.REG_String2
List1.AddItem "REG_String3: " & frmMenue.Registration_Info1.REG_String3
List1.AddItem "REG_String4: " & frmMenue.Registration_Info1.REG_String4

List1.AddItem "PRODUCT_RegistrationPath: " & frmMenue.Registration_Info1.PRODUCT_RegPath
List1.AddItem "PRODUCT_Version: " & frmMenue.Registration_Info1.PRODUCT_Version

End Sub