Уменьшение Frame при клике мышкой - VBA

Формулировка задачи:

Всем привет. Нужно помощь. Имеется Frame, нужно чтобы при касании курсора фрейм уменьшался именно именно с этой стороны, а не сверху и снизу. Т.е. я касаюсь слева, левая сторона отходить к правой, а если к верхней то она вниз. А другие стороны остаются фиксированными. У меня получается, что при касании, хоть слева, хоть снизу, уменьшается. А должна только с одной...

Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Frame1.Width = Frame1.Width - 10
End Sub

Как можно объяснить проге, лево, вверх, них и право?

Решение задачи: «Уменьшение Frame при клике мышкой»

textual
                            Листинг программы 
                        

                             
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Abs(X - Frame1.Width) < 100 Then Frame1.Width = Frame1.Width - 10
    If Abs(Y - Frame1.Height) < 100 Then Frame1.Height = Frame1.Height - 10
    If X < 100 Then Frame1.Left = Frame1.Left + 10: Frame1.Width = Frame1.Width - 10
    If Y < 100 Then Frame1.Top = Frame1.Top + 10: Frame1.Height = Frame1.Height - 10
End Sub
                        