I have created a custom button control with a caption property. When I am using this in another project, I am able to set the caption to whatever I want, and it shows correctly in design mode, however when I am running the project the button caption still shows as the default I have set on the control, how do I fix this?

Here is my code on the control:
VB Code:
  1. Public Event Click()

  2. Private lblCaption As String

  3.  
  4. Private Sub imgUp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

  5.     imgUp.Visible = False

  6.     imgDown.Visible = True

  7. End Sub

  8.  
  9. Private Sub imgUp_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

  10.     imgUp.Visible = True

  11.     imgDown.Visible = False

  12.     RaiseEvent Click

  13. End Sub

  14.  
  15. Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

  16.     imgUp.Visible = False

  17.     imgDown.Visible = True

  18. End Sub

  19.  
  20. Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

  21.     imgUp.Visible = True

  22.     imgDown.Visible = False

  23.     RaiseEvent Click

  24. End Sub

  25.  
  26. Property Get Caption() As String

  27.     lblCaption = UserControl.Label1.Caption

  28. End Property

  29.  
  30. Property Let Caption(capt As String)

  31.    UserControl.Label1.Caption = capt

  32.    PropertyChanged "Caption"

  33. End Property