*/
Are you blogging on PH? Get your free blog.
*/

View \Dialog.frm

Calculation-Cal-Comp v1.0

Submitted By: Akshay Minocha
Rating: (Not rated) (Rate It)


VERSION 5.00
Begin VB.Form Dialog
   BackColor       =   &H80000015&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Dialog Caption"
   ClientHeight    =   2385
   ClientLeft      =   2625
   ClientTop       =   3030
   ClientWidth     =   6165
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2385
   ScaleWidth      =   6165
   ShowInTaskbar   =   0   'False
   Begin VB.TextBox Text1
      Height          =   495
      Left            =   720
      TabIndex        =   3
      Top             =   1560
      Width           =   3615
   End
   Begin VB.CommandButton CancelButton
      Caption         =   "E X I T"
      Height          =   375
      Left            =   4800
      TabIndex        =   1
      Top             =   1800
      Width           =   1215
   End
   Begin VB.CommandButton OKButton
      Caption         =   "H O M E "
      Height          =   375
      Left            =   4800
      TabIndex        =   0
      Top             =   1200
      Width           =   1215
   End
   Begin VB.Label Label1
      Caption         =   "Congratulations You Have Won !!!                                 Please Enter Your Name Below - "
      BeginProperty Font
         Name            =   "Verdana"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1215
      Left            =   120
      TabIndex        =   2
      Top             =   120
      Width           =   4575
      WordWrap        =   -1  'True
   End
End
Attribute VB_Name = "Dialog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub CancelButton_Click()
End
End Sub

Private Sub OKButton_Click()
Calculators.Show
Dialog.Hide
End Sub

corner
© 1996-2008 CommunityHeaven LLC. All rights reserved. Reproduction in whole or in part, in any form or medium without express written permission is prohibited.
Violators of this policy may be subject to legal action. Please read our Terms Of Use and Privacy Statement for more information.
North American business development: Nicolai Wadstrom. Publisher: Lars Hagelin.