home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_4_94 / vbwin / tricks / unsicht.txt < prev   
Text File  |  1995-02-26  |  575b  |  31 lines
  1. Declare Function ShowWindow% Lib "User" (ByVal hWnd%, ByVal nCmdShow%)
  2. Declare Function GetWindow% Lib "User" (ByVal hWnd%, ByVal wCmd%)
  3. Const GW_OWNER = 4
  4. Const SW_HIDE = 0
  5.  
  6. Sub Form_Load ()
  7.  
  8.  
  9.     timer1.Enabled = True
  10.     timer1.Interval = 5000
  11.     
  12.     form1.Visible = False
  13.     OwnerhWnd = GetWindow(Me.hWnd, GW_OWNER)
  14.     kr = ShowWindow(OwnerhWnd, SW_HIDE)
  15.  
  16.     
  17.  
  18. End Sub
  19.  
  20. Sub Timer1_Timer ()
  21.  
  22.     kr% = MsgBox("Programm beenden?", 36, "Unsichtbar")
  23.     
  24.     If kr% = 6 Then
  25.         timer1.Enabled = False
  26.         End
  27.     End If
  28.  
  29. End Sub
  30.  
  31.