Public Sub Walldefy(moveable As Control, wall As Control, lblock As Boolean, _
  rblock As Boolean, _
 ublock As Boolean, dblock As Boolean, speed As Integer)
 
 'objekt unten blockieren
 'der obereblock schiebt das objekt zurück, sobald es ein gewisse Nähe zur wand 
 ' hat.
If moveable.Top + moveable.Height > wall.Top - (speed / 1.1) And ( _
  moveable.Top + moveable.Height) < wall.Top + (speed / 1.1) And _
wall.Left < moveable.Left + moveable.Width And wall.Left + wall.Width > _
moveable.Left Then moveable.Top = wall.Top - moveable.Height
'Der untere block fixiert das objekt dort
 If moveable.Top + moveable.Height = wall.Top And _
wall.Left < moveable.Left + moveable.Width And wall.Left + wall.Width > _
moveable.Left Then dblock = True
'objekt oben blockieren
If moveable.Top > wall.Top + wall.Height - (speed / 1.1) And (moveable.Top) _
  < wall.Top + wall.Height + (speed / 1.1) And _
wall.Left < moveable.Left + moveable.Width And wall.Left + wall.Width > _
moveable.Left Then moveable.Top = wall.Top - (-wall.Height)
If moveable.Top = wall.Top + wall.Height And _
wall.Left < moveable.Left + moveable.Width And wall.Left + wall.Width > _
moveable.Left Then ublock = True
'objekt links blockieren
If moveable.Left > wall.Left + wall.Width - (speed / 1.1) And ( _
  moveable.Left) < wall.Left + wall.Width + (speed / 1.1) And _
wall.Top < moveable.Top + moveable.Height And wall.Top + wall.Height > _
moveable.Top Then moveable.Left = wall.Left - (-wall.Width)
If moveable.Left = wall.Left + wall.Width And _
wall.Top < moveable.Top + moveable.Height And wall.Top + wall.Height > _
moveable.Top Then lblock = True
'objekt rechts blockieren
If moveable.Left + moveable.Width > wall.Left - (speed / 1.1) And _
  moveable.Left + moveable.Width > wall.Left + (speed / 1.1) And _
wall.Top < moveable.Top + moveable.Height And wall.Top + wall.Height > _
moveable.Top Then moveable.Left = wall.Left - moveable.Width
If moveable.Left = wall.Left + wall.Width And _
wall.Top < moveable.Top + moveable.Height And wall.Top + wall.Height > _
moveable.Top Then rblock = True
'hf with this tool!
End Sub