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 + wall.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