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

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

If Shape1.Width >Form1.Width - 1550  Or Shape1.Height > Form1.Height - 1400 Then
 Shape1.Width =Form1.Width - 1550 
 Shape1.Height =Form1.Height - 1400
End if

If KeyCode = 189 Then
If Shape1.Width < 500 And Shape1.Height < 500 Then
Else

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