个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

				VERSION 5.00
				Begin VB.Form Form1 
				   AutoRedraw      =   -1  'True
				   Caption         =   "Form1"
				   ClientHeight    =   3195
				   ClientLeft      =   60
				   ClientTop       =   345
				   ClientWidth     =   4680
				   FillColor       =   &H80000000&
				   ForeColor       =   &H8000000A&
				   LinkTopic       =   "Form1"
				   ScaleHeight     =   3195
				   ScaleWidth      =   4680
				   StartUpPosition =   3  '窗口缺省
				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 hwnd, 1000, AW_BLEND + AW_ACTIVATE
				End Sub