home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_6_93 / vbwin / tricks / unsicht.frm < prev    next >
Text File  |  1995-02-26  |  1KB  |  51 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   6216
  6.    ClientLeft      =   1512
  7.    ClientTop       =   1632
  8.    ClientWidth     =   6420
  9.    Height          =   6636
  10.    Left            =   1464
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   6216
  13.    ScaleWidth      =   6420
  14.    Top             =   1260
  15.    Width           =   6516
  16.    Begin Timer Timer1 
  17.       Left            =   360
  18.       Top             =   2640
  19.    End
  20. End
  21. Declare Function ShowWindow% Lib "User" (ByVal hWnd%, ByVal nCmdShow%)
  22. Declare Function GetWindow% Lib "User" (ByVal hWnd%, ByVal wCmd%)
  23. Const GW_OWNER = 4
  24. Const SW_HIDE = 0
  25.  
  26. Sub Form_Load ()
  27.  
  28.  
  29.     timer1.Enabled = True
  30.     timer1.Interval = 5000
  31.     
  32.     form1.Visible = False
  33.     OwnerhWnd = GetWindow(Me.hWnd, GW_OWNER)
  34.     kr = ShowWindow(OwnerhWnd, SW_HIDE)
  35.  
  36.     
  37.  
  38. End Sub
  39.  
  40. Sub Timer1_Timer ()
  41.  
  42.     kr% = MsgBox("Programm beenden?", 36, "Unsichtbar")
  43.     
  44.     If kr% = 6 Then
  45.         timer1.Enabled = False
  46.         End
  47.     End If
  48.  
  49. End Sub
  50.  
  51.