frmTrial.frm
上传用户:graphite
上传日期:2020-09-09
资源大小:2587k
文件大小:2k
源码类别:

破解

开发平台:

Others

  1. VERSION 5.00
  2. Begin VB.Form frmTrial 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Trial"
  5.    ClientHeight    =   2190
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2190
  13.    ScaleWidth      =   4680
  14.    StartUpPosition =   2  'CenterScreen
  15.    Begin VB.CommandButton btnTrialExit 
  16.       Caption         =   "Exit"
  17.       Height          =   375
  18.       Left            =   2520
  19.       TabIndex        =   2
  20.       Top             =   1680
  21.       Width           =   1695
  22.    End
  23.    Begin VB.CommandButton btnTrialReg 
  24.       Caption         =   "Registration"
  25.       Height          =   375
  26.       Left            =   480
  27.       TabIndex        =   1
  28.       Top             =   1680
  29.       Width           =   1455
  30.    End
  31.    Begin VB.Label Label1 
  32.       AutoSize        =   -1  'True
  33.       Caption         =   "TRIAL EXPIRED !"
  34.       BeginProperty Font 
  35.          Name            =   "Arial"
  36.          Size            =   14.25
  37.          Charset         =   204
  38.          Weight          =   700
  39.          Underline       =   0   'False
  40.          Italic          =   0   'False
  41.          Strikethrough   =   0   'False
  42.       EndProperty
  43.       Height          =   330
  44.       Left            =   1080
  45.       TabIndex        =   0
  46.       Top             =   240
  47.       Width           =   2325
  48.    End
  49. End
  50. Attribute VB_Name = "frmTrial"
  51. Attribute VB_GlobalNameSpace = False
  52. Attribute VB_Creatable = False
  53. Attribute VB_PredeclaredId = True
  54. Attribute VB_Exposed = False
  55. Private Sub btnTrialExit_Click()
  56.   End
  57. End Sub
  58. Private Sub btnTrialReg_Click()
  59.   frmRegistration.Show 1
  60. End Sub
  61. Private Sub Form_Unload(Cancel As Integer)
  62.   End
  63. End Sub