An Image named Image1.
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