can i create the Visible and Enable property in usercontrol?
why these code only changes the boolean variable. i can't hide the usercontrol.. why?
Code:
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=UserControl,UserControl,-1,Visible
Public Property Get Visible() As Boolean
Visible = blnVisible
End Property
Public Property Let Visible(ByVal vNewValue As Boolean)
blnVisible = vNewValue
If blnVisible = False Then
Me.Visible = False
RaiseEvent Hide(Extender.left, Extender.top)
Else
ShowWindow UserControl.HWnd, 5
Me.Visible = True
RaiseEvent Show(Extender.left, Extender.top)
End If
UpdateWindow UserControl.HWnd
PropertyChanged "Visible"
End Property