home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
bp_4_94
/
vbwin
/
tricks
/
unsicht.frm
< prev
next >
Wrap
Text File
|
1995-02-26
|
1KB
|
51 lines
VERSION 2.00
Begin Form Form1
BackColor = &H00C0C0C0&
Caption = "Form1"
ClientHeight = 6216
ClientLeft = 1512
ClientTop = 1632
ClientWidth = 6420
Height = 6636
Left = 1464
LinkTopic = "Form1"
ScaleHeight = 6216
ScaleWidth = 6420
Top = 1260
Width = 6516
Begin Timer Timer1
Left = 360
Top = 2640
End
End
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