home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{597F0D03-FE03-11D0-9F5E-B42103C10710}#1.0#0"; "EDGECTL.OCX"
- Begin VB.Form frmExample
- BorderStyle = 3 'Fixed Dialog
- Caption = "Break"
- ClientHeight = 2784
- ClientLeft = 36
- ClientTop = 264
- ClientWidth = 3420
- ControlBox = 0 'False
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 2784
- ScaleWidth = 3420
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 'CenterScreen
- WhatsThisButton = -1 'True
- WhatsThisHelp = -1 'True
- Begin VB.CommandButton cmdOK
- Caption = "OK"
- Default = -1 'True
- Height = 372
- Left = 960
- TabIndex = 12
- Top = 2280
- Width = 1092
- End
- Begin VB.CommandButton cmdCancel
- Cancel = -1 'True
- Caption = "Cancel"
- Height = 372
- Left = 2160
- TabIndex = 11
- Top = 2280
- Width = 1092
- End
- Begin EDGECTLLib.EdgeCtl EdgeCtl3
- Height = 132
- Left = 120
- TabIndex = 10
- Top = 1920
- Width = 3132
- _Version = 65536
- _ExtentX = 5524
- _ExtentY = 233
- _StockProps = 1
- End
- Begin VB.OptionButton optTwo
- Caption = "&Odd Page"
- Height = 252
- Index = 3
- Left = 1800
- TabIndex = 9
- Top = 1560
- Width = 1212
- End
- Begin VB.OptionButton optTwo
- Caption = "Con&tinuous"
- Height = 252
- Index = 2
- Left = 240
- TabIndex = 8
- Top = 1560
- Width = 1212
- End
- Begin VB.OptionButton optTwo
- Caption = "&Even Page"
- Height = 252
- Index = 1
- Left = 1800
- TabIndex = 7
- Top = 1200
- Width = 1212
- End
- Begin VB.OptionButton optTwo
- Caption = "&Next Page"
- Height = 252
- Index = 0
- Left = 240
- TabIndex = 6
- Top = 1200
- Width = 1212
- End
- Begin EDGECTLLib.EdgeCtl EdgeCtl2
- Height = 132
- Left = 1440
- TabIndex = 5
- Top = 840
- Width = 1812
- _Version = 65536
- _ExtentX = 3196
- _ExtentY = 233
- _StockProps = 1
- End
- Begin VB.OptionButton optOne
- Caption = "&Column break"
- Height = 252
- Index = 1
- Left = 1800
- TabIndex = 3
- Top = 480
- Width = 1332
- End
- Begin VB.OptionButton optOne
- Caption = "&Page break"
- Height = 252
- Index = 0
- Left = 240
- TabIndex = 2
- Top = 480
- Width = 1212
- End
- Begin EDGECTLLib.EdgeCtl EdgeCtl1
- Height = 132
- Left = 720
- TabIndex = 1
- Top = 120
- Width = 2532
- _Version = 65536
- _ExtentX = 4466
- _ExtentY = 233
- _StockProps = 1
- End
- Begin VB.Label Label2
- Caption = "Section breaks"
- Height = 252
- Left = 120
- TabIndex = 4
- Top = 840
- Width = 1212
- End
- Begin VB.Label Label1
- Caption = "Insert"
- Height = 252
- Left = 120
- TabIndex = 0
- Top = 120
- Width = 492
- End
- Attribute VB_Name = "frmExample"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub cmdCancel_Click()
- frmExample.Hide
- End Sub
- Private Sub cmdOK_Click()
- frmExample.Hide
- End Sub
-