frmdemo.frm

Usb Key loock vb soucrse code. ocx not found

VERSION 5.00
Object = "{065E6FD1-1BF9-11D2-BAE8-00104B9E0792}#3.0#0"; "ssa3d30.ocx"
Begin VB.Form frmdemo 
   BorderStyle     =   1  '窜老 绊沥
   Caption         =   "舅覆芒 "
   ClientHeight    =   3375
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8775
   Icon            =   "frmdemo.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3375
   ScaleWidth      =   8775
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows 扁夯蔼
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      BorderStyle     =   0  '绝澜
      Height          =   720
      Left            =   360
      Picture         =   "frmdemo.frx":014A
      ScaleHeight     =   720
      ScaleWidth      =   720
      TabIndex        =   8
      Top             =   240
      Width           =   720
   End
   Begin VB.PictureBox Picture12 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  '绝澜
      Height          =   750
      Left            =   5520
      Picture         =   "frmdemo.frx":1014
      ScaleHeight     =   750
      ScaleWidth      =   3000
      TabIndex        =   0
      Top             =   120
      Width           =   3000
   End
   Begin Threed.SSCommand SSCommand8 
      Height          =   375
      Left            =   3720
      TabIndex        =   1
      Top             =   2880
      Width           =   1215
      _ExtentX        =   2143
      _ExtentY        =   661
      _Version        =   196610
      PictureFrames   =   1
      Picture         =   "frmdemo.frx":18CA
      Caption         =   "犬 牢"
      PictureAlignment=   10
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  '捧疙
      Caption         =   "Locker"
      BeginProperty Font 
         Name            =   "奔覆"
         Size            =   14.25
         Charset         =   129
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   285
      Index           =   8
      Left            =   2280
      TabIndex        =   11
      Top             =   720
      Width           =   915
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  '捧疙
      Caption         =   "System"
      BeginProperty Font 
         Name            =   "奔覆"
         Size            =   14.25
         Charset         =   129
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   285
      Index           =   7
      Left            =   1200
      TabIndex        =   10
      Top             =   720
      Width           =   1005
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  '捧疙
      Caption         =   "USB"
      BeginProperty Font 
         Name            =   "奔覆"
         Size            =   26.25
         Charset         =   129
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   525
      Index           =   6
      Left            =   1080
      TabIndex        =   9
      Top             =   240
      Width           =   1110
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  '捧疙
      Caption         =   "过利 炼摹甫 寸且荐 乐嚼聪促. 坷流 捞 力前篮 抛胶飘甫 秦焊扁 困秦辑 力累登菌嚼聪促."
      Height          =   180
      Index           =   5
      Left            =   720
      TabIndex        =   7
      Top             =   2520
      Width           =   7020
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  '捧疙
      Caption         =   "橇肺弊伐 郴何狼 内靛甫 荐沥窍芭唱 趣篮, 捞甫 雀荤狼 全焊侩捞唱 趣篮 促弗 格利栏肺 荤侩瞪矫"
      Height          =   180
      Index           =   4
      Left            =   720
      TabIndex        =   6
      Top             =   2280
      Width           =   7740
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  '捧疙
      Caption         =   "[版绊]USB System Locker 绰 茄匡家橇飘 绊蜡狼 磊魂捞哥, 橇肺弊伐阑 备概饶 剧档甫 且荐 绝栏哥,"
      Height          =   180
      Index           =   3
      Left            =   240
      TabIndex        =   5
      Top             =   2040
      Width           =   8115
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  '捧疙
      Caption         =   "乐档废 茄 力前涝聪促."
      Height          =   180
      Index           =   2
      Left            =   960
      TabIndex        =   4
      Top             =   1680
      Width           =   1800
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  '捧疙
      Caption         =   "  舅覆芒 捞寇狼 葛电 扁瓷篮 沥前苞 悼老窍哥, 备概窍扁傈俊 荤侩磊啊 荤侩 秦杭荐 "
      Height          =   180
      Index           =   1
      Left            =   840
      TabIndex        =   3
      Top             =   1440
      Width           =   6720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  '捧疙
      Caption         =   "[救郴巩] 泅犁 捞 力前篮 单葛侩栏肺 1盒 埃拜栏肺 舅覆芒捞 剁霸 邓聪促."
      Height          =   180
      Index           =   0
      Left            =   240
      TabIndex        =   2
      Top             =   1200
      Width           =   5910
   End
End
Attribute VB_Name = "frmdemo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
SetTopMostWnd Me.hwnd, True
 With frmdemo
         .Top = (Screen.Height - Me.Height) / 2
         .Left = (Screen.Width - Me.Width) / 2
 End With
 EnableCloseButton Me.hwnd, False
End Sub

Private Sub SSCommand8_Click()
Unload Me
End Sub