Line | |
---|
1 | VERSION 5.00
|
---|
2 | Begin VB.Form Form1
|
---|
3 | Caption = "Form1"
|
---|
4 | ClientHeight = 3090
|
---|
5 | ClientLeft = 60
|
---|
6 | ClientTop = 450
|
---|
7 | ClientWidth = 4680
|
---|
8 | LinkTopic = "Form1"
|
---|
9 | ScaleHeight = 3090
|
---|
10 | ScaleWidth = 4680
|
---|
11 | StartUpPosition = 3 '¨t²Î¹w³]È
|
---|
12 | Begin VB.CommandButton Command1
|
---|
13 | Caption = "Command1"
|
---|
14 | Height = 855
|
---|
15 | Left = 960
|
---|
16 | TabIndex = 0
|
---|
17 | Top = 600
|
---|
18 | Width = 1935
|
---|
19 | End
|
---|
20 | End
|
---|
21 | Attribute VB_Name = "Form1"
|
---|
22 | Attribute VB_GlobalNameSpace = False
|
---|
23 | Attribute VB_Creatable = False
|
---|
24 | Attribute VB_PredeclaredId = True
|
---|
25 | Attribute VB_Exposed = False
|
---|
26 |
|
---|
27 | Private Sub Command1_Click()
|
---|
28 | Key = GetRegKeyValue(HKEY_CLASSES_ROOT, _
|
---|
29 | "CLSID\{1C3B4210-F441-11CE-B9EA-00AA006B1A69}\InprocServer32", "")
|
---|
30 | If Key <> "" Then
|
---|
31 | LanguagePage.Show
|
---|
32 | Unload Me
|
---|
33 | Else
|
---|
34 |
|
---|
35 | End If
|
---|
36 |
|
---|
37 | End Sub
|
---|
Note: See
TracBrowser
for help on using the repository browser.