Drag userform window contents

[diddi]

Greets all!
todays obscure challenge is as follows.

I would like to display a large userform on a small screen. There will be a background image and a number of commandbuttons, but no other controls.

Can i use the API to attach scroll bars (preferably invisible) and then use the mouse to drag the entire contents of the form so the user can see the bit they want to use?

Or other suggestions?

TIA

 

[diddi]

challenge solved. easier than i thought. here's what I did (for interested parties)...

even works if the controls are pushed completely outside the range of the userform

Dim x1 As Single, y1 As Single

Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Application.Cursor = xlDefault      ' put a hand here
    DoEvents
    x1 = X: y1 = Y
End Sub

Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Application.Cursor = xlDefault
    If Button = 1 Then
        CommandButton1.Top = CommandButton1.Top - y1 + Y
        CommandButton1.Left = CommandButton1.Left - x1 + X
        CommandButton2.Top = CommandButton2.Top - y1 + Y
        CommandButton2.Left = CommandButton2.Left - x1 + X
        DoEvents
    End If
End Sub