Part | Description | |
object | Required. A valid object. | |
Single | Optional. For ClientHeight and ClientWidth, specifies the height or width, in points, of the display area. For ClientLeft and ClientTop, specifies the distance, in points, from the top or left edge of the TabStrip's container. |
Private Sub UserForm_Initialize()
CommandButton1.Caption = "Size Image to Tab Area"
CommandButton1.WordWrap = True
CommandButton1.AutoSize = True
End Sub
Private Sub CommandButton1_Click()
Image1.ZOrder (fmFront) 'Place Image in front of TabStrip
'ClientLeft and ClientTop are measured from the edge of the TabStrip,
'not from the edges of the form containing the TabStrip.
Image1.Left = TabStrip1.Left + TabStrip1.ClientLeft
Image1.Top = TabStrip1.Top + TabStrip1.ClientTop
Image1.Width = TabStrip1.ClientWidth
Image1.Height = TabStrip1.ClientHeight
End Sub