Declare Function ShowWindow% Lib "User" (ByVal hWnd%, ByVal nCmdShow%)
Declare Function GetWindow% Lib "User" (ByVal hWnd%, ByVal wCmd%)
Const GW_OWNER = 4
Const SW_HIDE = 0

Sub Form_Load ()


    timer1.Enabled = True
    timer1.Interval = 5000
    
    form1.Visible = False
    OwnerhWnd = GetWindow(Me.hWnd, GW_OWNER)
    kr = ShowWindow(OwnerhWnd, SW_HIDE)

    

End Sub

Sub Timer1_Timer ()

    kr% = MsgBox("Programm beenden?", 36, "Unsichtbar")
    
    If kr% = 6 Then
        timer1.Enabled = False
        End
    End If

End Sub