Public stopperrechts As Integer
Public stopperlinks As Integer
 
Private Sub Command1_Click()
frm_tuerlinks.Show
frm_tuerrechts.Show
frm_mitte.Show
stopperrechts = frm_mitte.Left + frm_mitte.Width
stopperlinks = frm_mitte.Left
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
    frm_tuerlinks.Left = frm_tuerlinks.Left - 20
 
 
If frm_tuerrechts.Left > stopperrechts Then
    frm_tuerlinks.Left = stopperlinks - frm_tuerlinks.Width
    frm_tuerrechts.Left = stopperrechts
        Timer1.Enabled = False
Else
    frm_tuerrechts.Left = frm_tuerrechts.Left + 20
 
End If
End Sub

Private Sub Form_Load()
frm_tuerlinks.Top = frm_mitte.Top
frm_tuerlinks.Left = frm_mitte.Left
frm_tuerlinks.Height = frm_mitte.Height
End Sub

Private Sub Form_Load()
frm_tuerrechts.Left = frm_mitte.Left + frm_tuerrechts.Width
frm_tuerrechts.Top = frm_mitte.Top
frm_tuerrechts.Height = frm_mitte.Height
End Sub