[afiltroi]

Hello from Greece Europe.
I am a newcomer here and a newbie in VB6. I have written a code (merging two others that i found) in order to create a form with two scrollbars (vertical and horizontial). Both scrollbars are resizable and move every object that is included in the form. But there is a small problem with the existent code. When i use for instance the vertical scroll in order to move down the objects of the form, the horizontial scroll bar also moves down. When i use the cursor in order to resize the form, then the horizontial bar reposes in the bottom of the form.
Can someone help me with this?
I attach the code that i have created.
In case someone has another code that works, this is more more than welcome.
ATTENTION!!! I am not interested in the code that works using a PictureBox.

Thanks in advance.

[mickeyray]

Private Sub pScrollForm()

Dim ctl As Control

For Each ctl In Me.Controls
If Not (TypeOf ctl Is VScrollBar) And Not (TypeOf ctl Is HScrollBar) And _
Not (TypeOf ctl Is CommandButton) Then
ctl.Top = ctl.Top + oldPos - VScroll1.Value
End If
Next
For Each ctl In Me.Controls
If Not (TypeOf ctl Is HScrollBar) And Not (TypeOf ctl Is VScrollBar) And _
Not (TypeOf ctl Is CommandButton) Then
ctl.Left = ctl.Left + oldPos1 - HScroll1.Value
End If
Next
oldPos = VScroll1.Value
oldPos1 = HScroll1.Value
End Sub