VB6 Picturebox верхняя позиция

Question

В моем приложении у меня есть два ящика для изображений. Изображение1 выровнено по низу. Когда я нажимаю кнопку мыши и перемещаю Picture2, высота Picture1 будет соответственно изменяться. Его работа прекрасна.

Моя проблема в том, что я изменяю размеры формы Picture1 и Picture2 находятся в другом положении. Picture2 не точно находится в верхнем положении Picture1.

Private Sub Form_Resize() 
    Picture2.Width = Me.ScaleWidth 
    Picture2.Top = Picture1.Height + Picture1.Top 
End Sub 

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
On Error Resume Next 
Screen.MousePointer = 7 
If Button = 1 Then 
    Picture2.Top = Picture2.Top + (Y) 
    Picture1.Height = Me.Height - Picture2.Top - 720 
End If 
End Sub 

Answer 1

Я не уверен, что вы пытаетесь выполнить. Мне кажется, что Picture1 выровнен сверху, а не снизу.

В любом случае. Вы имели в виду это?

Private Sub Form_Resize() 
    Picture2.Width = ScaleWidth 
    Picture2.Top = Picture1.Top + Picture1.Height 
End Sub 

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    On Error Resume Next 

    Screen.MousePointer = 7 

    If Button = 1 Then 
     Picture2.Top = Picture2.Top + (Y) 
     Picture1.Height = Picture2.Top 
    End If 

End Sub 

Answer 2

Картинки должны оставаться в том же положении, если вы измените размер формы или нет. Как сказал @ota Милинк, я не знаю, что вы действительно делаете.