' FORM UNTEN RECHTS ÜBER SYSTRAY EIN UND AUSBLENDEN
'
' Kleine Form erstellen, BorderStyle auf 1 setzen und
' Komponente "Microsoft SysInfo Control ..." einfügen.
' ******************************************
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Form_Load()
 
  Dim iMinTop As Long
  Dim iMaxTop As Long
 
  ' Left-Position der Form im WorkArea festlegen (unten rechts über SysTray)
  Form1.Left = SysInfo1.WorkAreaWidth - Form1.Width + SysInfo1.WorkAreaLeft - ( _
    SysInfo1.WorkAreaWidth / 100)
 
  ' Soll und Ist der Top-Werte der Form im WorkArea festlegen
  Me.Top = SysInfo1.WorkAreaHeight + SysInfo1.WorkAreaTop - ( _
    SysInfo1.WorkAreaHeight / 80) + 200
  iMaxTop = SysInfo1.WorkAreaHeight + SysInfo1.WorkAreaTop - ( _
  SysInfo1.WorkAreaHeight / 80) - Me.Height
  iMinTop = SysInfo1.WorkAreaHeight + SysInfo1.WorkAreaTop - ( _
  SysInfo1.WorkAreaHeight / 80) + 200
 
  ' Form anzeigen
  Me.Show
 
  'FORM EINBLENDEN
  ' so lange die Form ihre obere Top-Position nicht erreicht hat
  While iMaxTop < Me.Top
    ' wird diese stückweise eingeblendet
    Me.Top = Me.Top - 15
    Me.Refresh
    Sleep 3
  Wend
 
    ' Verweilzeit der Form (Millisekunden)
    Sleep 4000
 
  'FORM AUSBLENDEN
  ' so lange die Form ihre untere Top-Position nicht erreicht hat
  While iMinTop > Me.Top
    ' wird diese stückweise ausgeblendet
    Me.Top = Me.Top + 15
    Me.Refresh
    Sleep 3
  Wend
 
    Unload Me
    End
 
End Sub