home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Check_Box_2141481252009.psc / frmMain.frm < prev    next >
Text File  |  2009-01-22  |  3KB  |  101 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    Caption         =   "Form Test"
  4.    ClientHeight    =   8685
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   12690
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   8685
  10.    ScaleWidth      =   12690
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.PictureBox Picture1 
  13.       BackColor       =   &H00FF00FF&
  14.       Height          =   1095
  15.       Left            =   9120
  16.       ScaleHeight     =   1035
  17.       ScaleWidth      =   2235
  18.       TabIndex        =   3
  19.       Top             =   2280
  20.       Width           =   2295
  21.       Begin VB.Label Label1 
  22.          AutoSize        =   -1  'True
  23.          BackStyle       =   0  'Transparent
  24.          Caption         =   "I havent .hwnd property but i dont make any error!"
  25.          BeginProperty Font 
  26.             Name            =   "Trebuchet MS"
  27.             Size            =   8.25
  28.             Charset         =   0
  29.             Weight          =   400
  30.             Underline       =   0   'False
  31.             Italic          =   0   'False
  32.             Strikethrough   =   0   'False
  33.          EndProperty
  34.          Height          =   720
  35.          Left            =   240
  36.          TabIndex        =   4
  37.          Top             =   120
  38.          Width           =   1890
  39.          WordWrap        =   -1  'True
  40.       End
  41.    End
  42.    Begin VB.Frame Frame1 
  43.       BackColor       =   &H00FF00FF&
  44.       Caption         =   "Frame1"
  45.       Height          =   2775
  46.       Left            =   2520
  47.       TabIndex        =   2
  48.       Top             =   5280
  49.       Width           =   4695
  50.    End
  51.    Begin VB.OptionButton opt 
  52.       BackColor       =   &H00FF00FF&
  53.       Caption         =   "Me too!"
  54.       Height          =   975
  55.       Left            =   2040
  56.       TabIndex        =   1
  57.       Top             =   3600
  58.       Width           =   6855
  59.    End
  60.    Begin VB.CheckBox chk 
  61.       BackColor       =   &H00FF00FF&
  62.       Caption         =   "Im transparent!"
  63.       Height          =   915
  64.       Left            =   1560
  65.       MaskColor       =   &H00CCCCCC&
  66.       TabIndex        =   0
  67.       Top             =   1800
  68.       Width           =   7095
  69.    End
  70.    Begin VB.Image Image1 
  71.       Height          =   8085
  72.       Left            =   600
  73.       Picture         =   "frmMain.frx":0000
  74.       Top             =   360
  75.       Width           =   10005
  76.    End
  77. End
  78. Attribute VB_Name = "frmMain"
  79. Attribute VB_GlobalNameSpace = False
  80. Attribute VB_Creatable = False
  81. Attribute VB_PredeclaredId = True
  82. Attribute VB_Exposed = False
  83.  
  84. Private Sub Form_Load()
  85.     Dim objT As clsTrans
  86.     
  87.     Set objT = New clsTrans
  88.     
  89.     Me.Show
  90.     DoEvents 'remember to do that!
  91.     
  92.     
  93.     objT.DoIT chk
  94.     objT.DoIT opt
  95.     objT.DoIT Frame1
  96.     objT.DoIT Label1 'no error if you pass an object that doesnt allow .hwnd property
  97.     
  98.  
  99.     Set objT = Nothing
  100. End Sub
  101.