'Label排列方式,注意一定要加[]号
Public Enum uArrange
[Left] = 0
[Right] = 1
[Top] = 2
[Bottom] = 3
End Enum
'标签的排列方式
Public Property Let Arrange(varArrange As uArrange)
mvarArrange = varArrange
UserControl_Resize
End Property
Public Property Get Arrange() As uArrange
Arrange = mvarArrange
End Property