home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Houseplan Collection
/
HRCD2005.ISO
/
data1.cab
/
Zusatz
/
3DS
/
DATA2.Z
/
ExclusivDlg.frm
< prev
next >
Wrap
Text File
|
1998-06-15
|
1KB
|
53 lines
VERSION 5.00
Begin VB.Form ExclusivDlg
Caption = "ArCon - Ersatzdialog"
ClientHeight = 1560
ClientLeft = 60
ClientTop = 345
ClientWidth = 3405
LinkTopic = "Form1"
ScaleHeight = 1560
ScaleWidth = 3405
StartUpPosition = 3 'Windows-Standard
Begin VB.CommandButton Cancel
Cancel = -1 'True
Caption = "Abbruch"
Height = 495
Left = 2280
TabIndex = 1
Top = 840
Width = 1095
End
Begin VB.CommandButton OK
Caption = "&OK"
Default = -1 'True
Height = 495
Left = 2280
TabIndex = 0
Top = 120
Width = 1095
End
End
Attribute VB_Name = "ExclusivDlg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public withOK As Boolean
Private Sub Cancel_Click()
withOK = False
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
Main.ExclusiveDone
End Sub
Private Sub OK_Click()
withOK = True
Unload Me
End Sub