-1 Then Me.Top = Top If Width <> -1 Then Me.Width = Width If Height <> -1 Then Me.Height = Height End Function Public Property Get ToolTip() As String ToolTip = Parent.getToolTipText() End Property Public Property Let ToolTip(v As String) If Len(v) = 0 Then Parent.setToolTipText(Null) Else Parent.setToolTipText(v) End If End Property Public Property Get Enabled() As Boolean Enabled = Base.isEnabled() End Property Public Property Let Enabled(v As Boolean) Call Base.setEnabled(v) End Property Public Property Get Visible() As Boolean Visible = Base.isVisible() End Property Public Property Let Visible(v As Boolean) Base.setVisible v End Property Public Property Get Tag() As String Tag = myTag End Property Public Property Let Tag(v As String) myTag = v End Property Public Property Get MousePointer() As MousePointerConstants MousePointer = JCursorToVBMousePointer(Parent.getCursor()) End Property Public Property Let MousePointer(v As MousePointerConstants) Call Parent.setCursor(VBMousePointerToJCursor(v)) End Property Public Property Get MouseIcon() As #IResource MouseIcon = myMouseIcon End Property Public Property Let MouseIcon(v As #IResource) myMouseIcon = v Call Parent.setCursor(VBMouseIconToJCursor(v, Me)) End Property Public Property Get CanGetFocus() As Boolean CanGetFocus = Parent.isFocusable End Property Public Property Let CanGetFocus(v As Boolean) Parent.setFocusable v End Property Public Sub SetFocus() Parent.requestFocus End Sub Public Sub Refresh() Call Parent.setSize(Parent.getSize()) Call Parent.invalidate() Call Parent.repaint(0, 0, 0, Me.Width, Me.Height) End Sub Public Sub ResizeTriggerInit(w As Single, h As Single) hostSavedWidth = w hostSavedHeight = h mySavedWidth = Me.Width mySavedHeight = Me.Height isResizeTriggerInitialized = True End Sub Public Sub ResizeTrigger(w As Single, h As Single) If isResizeTriggerInitialized = True And isLeftInitialized = True And isTopInitialized = True Then Select Case myAnchor And 12 ' horizontal re-allignment ' 12 in decimal = 1100 in binary. binary addition - eliminates Top and Bottom Case AnchorStyles.vbLeft ' do nothing Case AnchorStyles.vbRight Me.Left = w-hostSavedWidth+mySavedLeft Case AnchorStyles.vbLeftRight Me.Width = w-hostSavedWidth+mySavedWidth Case AnchorStyles.vbNone Me.Left = (w-mySavedWidth)/(hostSavedWidth-mySavedWidth)*mySavedLeft End Select Select Case myAnchor And 3 ' vertical re-allignment ' 3 in decimal = 0011 in binary. binary addition - eliminates Left and Right Case AnchorStyles.vbTop ' do nothing Case AnchorStyles.vbBottom Me.Top = h-hostSavedHeight+mySavedTop Case AnchorStyles.vbTopBottom Me.Height = h-hostSavedHeight+mySavedHeight Case AnchorStyles.vbNone Me.Top = (h-mySavedHeight)/(hostSavedHeight-mySavedHeight)*mySavedTop End Select End If End Sub ]]>