Размещение объектов только в пределах формы - VB

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

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then
If Shape1.Top < 0 Then
Else
Shape1.Top = Shape1.Top - 50
End If
End If
If KeyCode = 37 Then
If Shape1.Left < 0 Then
Else
Shape1.Left = Shape1.Left - 50
End If
End If
If KeyCode = 39 Then
Shape1.Left = Shape1.Left + 50
End If
If KeyCode = 40 Then
Shape1.Top = Shape1.Top + 50
End If
If Shape1.Width > Form1.Width - 1550 Or Shape1.Height > Form1.Height - 1400 Then
Else
If KeyCode = 187 Then
Shape1.Width = Shape1.Width + 50
Shape1.Height = Shape1.Height + 50
End If
End If
If KeyCode = 189 Then
If Shape1.Width < 500 And Shape1.Height < 500 Then
Else
Shape1.Width = Shape1.Width - 20
Shape1.Height = Shape1.Height - 20
End If
End If
End Sub

Решение задачи: «Размещение объектов только в пределах формы»

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

                            Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'ГўГўГҐГ°Гµ
If KeyCode = 38 And Shape1.Top >= 50 Then Shape1.Top = Shape1.Top - 50
'ГўГ«ГҐГўГ®
If KeyCode = 37 And Shape1.Left >= 50 Then Shape1.Left = Shape1.Left - 50
' ГўГЇГ°Г*ГўГ®
If KeyCode = 39 And (Shape1.Left + Shape1.Width + 50) < Form1.Width Then Shape1.Left = Shape1.Left + 50
'ГўГ*ГЁГ§
If KeyCode = 40 And (Shape1.Top + Shape1.Height + 50) < Form1.Height Then Shape1.Top = Shape1.Top + 50
'+
If KeyCode = 187 And Shape1.Width < 2000 And (Shape1.Left + Shape1.Width + 50) < Form1.Width And (Shape1.Top + Shape1.Height + 50) < Form1.Height Then
    Shape1.Width = Shape1.Width + 50
    Shape1.Height = Shape1.Height + 50
End If
'-
If KeyCode = 189 And Shape1.Width > 500 Then
    Shape1.Width = Shape1.Width - 50
    Shape1.Height = Shape1.Height - 50
End If
End Sub
                        