home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Planet Source Code Jumbo …e CD Visual Basic 1 to 7
/
5_2007-2008.ISO
/
data
/
Zips
/
The_messag2066355182007.psc
/
Form1.frm
< prev
next >
Wrap
Text File
|
2007-05-19
|
1KB
|
44 lines
VERSION 5.00
Begin VB.Form Form1
Caption = "Messagebox Example"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
BeginProperty Font
Name = "System"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 '┤░┐┌╚▒╩í
Begin VB.CommandButton Command1
Caption = "Click Me"
Height = 495
Left = 1680
TabIndex = 0
Top = 2160
Width = 1215
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
SetTimer hWnd, NV_CLOSEMSGBOX, 2000&, AddressOf TimerProc
Call MessageBox(hWnd, "Delay 2000ms,it will be closed automaticly.", _
MSG_TITLE, MB_ICONQUESTION Or MB_TASKMODAL)
End Sub