Visual.Basic.NET实用编程百例-47.6M.zip

				VERSION 5.00
				Begin VB.Form Form1 
				   Caption         =   "淡入淡出效果"
				   ClientHeight    =   5010
				   ClientLeft      =   60
				   ClientTop       =   345
				   ClientWidth     =   6180
				   LinkTopic       =   "Form1"
				   Picture         =   "Form1.frx":0000
				   ScaleHeight     =   5010
				   ScaleWidth      =   6180
				   StartUpPosition =   3  'Windows Default
				End
				Attribute VB_Name = "Form1"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				Private Declare Function AnimateWindow _
				Lib "user32" _
				( _
				    ByVal hWnd As Long, _
				    ByVal dwTime As Long, _
				    ByVal dwFlags As Long _
				 ) As Long
				Private Const AW_HOR_POSITIVE = &H1
				Private Const AW_HOR_NEGATIVE = &H2
				Private Const AW_VER_POSITIVE = &H4
				Private Const AW_VER_NEGATIVE = &H8
				Private Const AW_CENTER = &H10
				Private Const AW_HIDE = &H10000
				Private Const AW_ACTIVATE = &H20000
				Private Const AW_SLIDE = &H40000
				Private Const AW_BLEND = &H80000
				Private Sub Form_Load()
				    AnimateWindow Me.hWnd, 1000, AW_BLEND Or AW_ACTIVATE
				    '还可以使用前面定义的其他常量显示不同的动画效果
				    Form1.Refresh
				End Sub