VERSION 5.00
Begin VB.UserControl uctlTest 
   ClientHeight    =   3600
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4800
   PropertyPages   =   "uctlTest.ctx":0000
   ScaleHeight     =   3600
   ScaleWidth      =   4800
   Begin VB.CommandButton cmdTest 
      Caption         =   "test"
      Height          =   615
      Left            =   2640
      TabIndex        =   0
      Top             =   2520
      Width           =   1695
   End
   Begin VB.Line lnVertical 
      Index           =   1
      X1              =   2160
      X2              =   2160
      Y1              =   480
      Y2              =   3120
   End
   Begin VB.Line lnVertical 
      Index           =   0
      X1              =   1560
      X2              =   1560
      Y1              =   480
      Y2              =   3120
   End
End
Attribute VB_Name = "uctlTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "PropPageWizardRun" ,"Yes"
Option Explicit
 
Public Event Click()
 
Dim m_MyProp As String
 
 
Public Sub MoveLines()
  lnVertical(0).X1 = lnVertical(0).X1 - 10
  lnVertical(0).X2 = lnVertical(0).X2 - 10
End Sub
 
Private Sub cmdTest_Click()
 
  RaiseEvent Click
 
End Sub
 
Public Property Get MyProp() As String
Attribute MyProp.VB_ProcData.VB_Invoke_Property = "PropertyPage1"
  MyProp = m_MyProp
End Property
 
Public Property Let MyProp(ByVal rhs As String)
  m_MyProp = rhs
  cmdTest.Caption = rhs
End Property
 
Public Sub Init()
End Sub
 
Private Sub UserControl_Paint()
 
  If Ambient.UserMode Then
    cmdTest.Visible = False
    lnVertical(0).BorderWidth = 4
    lnVertical(1).BorderWidth = 4
  Else
    cmdTest.Visible = True
    lnVertical(0).BorderWidth = 1
    lnVertical(1).BorderWidth = 1
  End If
 
End Sub

VERSION 5.00
Begin VB.PropertyPage PropertyPage1 
   Caption         =   "PropertyPage1"
   ClientHeight    =   3495
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5925
   PaletteMode     =   0  'Halftone
   ScaleHeight     =   3495
   ScaleWidth      =   5925
   Begin VB.CommandButton cmdMvLines 
      Caption         =   "Split"
      Height          =   615
      Left            =   360
      TabIndex        =   2
      Top             =   2640
      Width           =   1815
   End
   Begin VB.TextBox txtMyProp 
      Height          =   330
      Left            =   90
      TabIndex        =   1
      Top             =   370
      Width           =   2700
   End
   Begin VB.Label lblMyProp 
      Caption         =   "MyProp:"
      Height          =   240
      Left            =   90
      TabIndex        =   0
      Top             =   120
      Width           =   2700
   End
End
Attribute VB_Name = "PropertyPage1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
 
Private Sub cmdMvLines_Click()
  SelectedControls(0).MoveLines
End Sub
 
Private Sub txtMyProp_Change()
  Changed = True
End Sub
 
Private Sub PropertyPage_ApplyChanges()
  SelectedControls(0).MyProp = txtMyProp.Text
End Sub
 
Private Sub PropertyPage_SelectionChanged()
  txtMyProp.Text = SelectedControls(0).MyProp
End Sub

Gruß
Dirk

--
?Get it right the first time