'Ereignisdeklarationen:
Event Click() 'MappingInfo=Label1,Label1,-1,Click
 
'Event Click() 'MappingInfo=UserControl,UserControl,-1,Click
'Event Click()
'Event Click() 'MappingInfo=UserControl,UserControl,-1,Click
'
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
normal.Visible = False
End Sub
 
''
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
normal.Visible = True
End Sub
 
 
'ACHTUNG! DIE FOLGENDEN KOMMENTIERTEN ZEILEN NICHT ENTFERNEN ODER VERÄNDERN!
'MappingInfo=Label1,Label1,-1,Caption
Public Property Get Caption() As String
    Caption = Label1.Caption
End Property
 
Public Property Let Caption(ByVal New_Caption As String)
    Label1.Caption() = New_Caption
    PropertyChanged "Caption"
End Property
 
 
'Eigenschaftenwerte vom Speicher laden
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    Label1.Caption = PropBag.ReadProperty("Caption", "PaduaButton")
End Sub
 
'Eigenschaftenwerte in den Speicher schreiben
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("Caption", Label1.Caption, "PaduaButton")
    Call PropBag.WriteProperty("Font", Label1.Font, "Arial")
End Sub
 
 
Private Sub Label1_Click()
RaiseEvent Click
End Sub
 
Private Sub UserControl_Resize()
On Error Resume Next
Width = 1260
Height = 1200
End Sub