<code>  
Option Explicit
Private Sub cmdShow_Click()
frmSlide.Show 'slide form laden
<font color="green">'slideform genau hinter Anderem Fenster plazieren
'musst du natürlich mit höhe und breite anpassen</font>
frmSlide.Left = Me.Left
frmSlide.Top = Me.Top
frmMain.Show 'main muss aktiv sein
End Sub
</code>

<code>
Option Explicit
Private Sub tmrSlideForm_Timer()
<font color="green">''hier kannst du natürlich auch alle möglichen anderes _
  sachen
'verändern(breite, höhe ect...)</font>
Me.Left = Me.Left + 20
If Me.Left > frmMain.Left + frmMain.Width Then tmrSlideForm.Enabled = False
End Sub
</code>