Private Sub FORM2SLIDE_Timer()
If Form1.Left <= 0 Then
Form1.Caption = ""
Form1.Left = 0
Form1.Top = 0
' hier war gestern das, was du mir vorschlägst
Exit Sub
Else
If Form1.Left >= Screen.Width - Form1.Width Then
Form1.Caption = ""
Form1.Left = Screen.Width - Form1.Width
Form1.Top = 0
' hier war gestern das, was du mir vorschlägst
Exit Sub
Else
Form1.Caption = "FORM BEZEICHNUNG"
End If
End If
End Sub

HP ist zZ leider Offline - Zeitmangel