Public stopperrechts As Integer
Public stopperlinks As Integer
 
Private Sub Command1_Click()
 
 
'Türlinks wird geladen
frm_tuerrechts.Show
'Die Höhe der Türrechtsform wird mit der Hauptform abgeglichen
frm_tuerrechts.Height = frm_mitte.Height
'Die rechte Kante von Tüerrechts wird genau auf die rechte Kante der Hauptform 
' gesetzt
frm_tuerrechts.Left = (frm_mitte.Left + frm_mitte.Width) - frm_tuerrechts.Width
'Die obere Hande der Türrechtsform wird auf die obere Kante der Hauptform 
' gesetzt
frm_tuerrechts.Top = frm_mitte.Top
 
 
 
'Türrechts wird geladen
frm_tuerlinks.Show
'Die Höhe der Türlinksform wird mit der Hauptform abgeglichen
frm_tuerlinks.Height = frm_mitte.Height
'Die obere Kante der Türlinksform wird auf die Obere Kante der Hauptform gesetzt
frm_tuerlinks.Top = frm_mitte.Top
'Die linke Kante der Türlinksform wird auf die Linke Kante der Hauptform gesetzt
frm_tuerlinks.Left = frm_mitte.Left
 
'Die Hauptform wird geladen
frm_mitte.Show
 
'Der rechte Stopper wird auf die Rechte Kante der Hauptform gesetzt
'Die -20 sind eine Sicherung. Manchmal passiert es dann, dass kurz ein Spalt 
' zwischen 
'Hauptform und Türform zu sehen ist da ich den Stopper hier um 20 Twips weiter 
' rein setze 
'kann das nicht mehr Passieren.
stopperrechts = frm_mitte.Left + frm_mitte.Width -20
'Der Linke Stopper wird auf eine Kante gesetzt die türlinksform hat wenn sie 
' voll ausgefahren ist
'Also von der Linken Kante der Hauptform minus der Breite der Türenform
stopperlinks = frm_mitte.Left - frm_tuerlinks.Width
 
'Die Timer werden auf ein Interval von 20 Millisekunden eingestellt
Timer1.Interval = 10
Timer2.Interval = 10
 
'Die Timer werden gestartet
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
 
 
 
Private Sub Timer1_Timer()
If frm_tuerrechts.Left >= stopperrechts Then
    'Wenn die linke Kante der Türform den Stopper erreicht hat oder diesen 
    ' überschreitet
    'Wird die linke Kante der Türform genau auf den Stopper gesetzt
    frm_tuerrechts.Left = stopperrechts
    'Der Timer wird wieder deaktiviert
    Timer1.Enabled = False
Else
    'Wenn die linke Kante der Türform den Stopper noch nicht erreicht hat wird 
    ' die Türform um
    '20 Twips weiter nach rechts geschoben
    frm_tuerrechts.Left = frm_tuerrechts.Left + 20
End If
End Sub
 
Private Sub Timer2_Timer()
If frm_tuerlinks.Left <= stopperlinks Then
    'Wenn die linke Kante der Türform den Stopper erreicht hat oder diesen 
    ' überschreitet
    'Wird die linke Kante der Türform genau auf den Stopper gesetzt
    frm_tuerlinks.Left = stopperlinks
    'Der Timer wird wieder Deaktiviert
    Timer2.Enabled = False
Else
    'Wenn die rechte Kante der Türform den Stopper noch nicht erreicht hat wird 
    ' die Türform um
    '20 Twips weiter nach links geschoben
    frm_tuerlinks.Left = frm_tuerlinks.Left - 20
End If
End Sub