Public Sub MouseUp(ByVal oEventSource As clsDynamicControl, Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 
End Sub

' Label Events
Private Sub m_oLabel_Click()
  Call m_oInterface.Click(Me)
End Sub
 
Private Sub m_oLabel_GotFocus()
  Call m_oInterface.GotFocus(Me)
End Sub
 
Private Sub m_oLabel_KeyPress(KeyAscii As Integer)
  Call m_oInterface.KeyPress(Me, KeyAscii)
End Sub
 
Private Sub m_oLabel_LostFocus()
  Call m_oInterface.LostFocus(Me)
End Sub
 
Private Sub m_oLabel_MouseUp(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
    Call m_oInterface.MouseUp(Me, Button, Shift, X, Y)
End Sub

Private Sub IDynamicControl_MouseUp(ByVal oEventSource As clsDynamicControl, _
  Button As Integer, Shift As Integer, X As Single, Y As Single)
    MsgBox CStr(Button)
End Sub

  ' Ein Label anlegen
  Set oDynControl = oDynControls.AddControl(eLabel, "DynamischesLabel")
  With oDynControl
    ' Verschieben, Sichtbar und eine Eigenschaft
    .ControlObject.Move 240, 1240, 2535, 375
    .ControlObject.Visible = True
    .ControlObject.Caption = "Dynamisches Label"
  End With