如题，淡入淡出就是慢慢出来、慢慢消失。

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongConst WS_EX_LAYERED = &H80000Const GWL_EXSTYLE = (-20)Const LWA_ALPHA = &H2'Const LWA_COLORKEY = &H1Public i As IntegerPrivate Sub Form_Load()Timer1.Interval = 10Timer2.Interval = 10Timer1.Enabled = TrueTimer2.Enabled = Falsei = 0End SubPrivate Sub Form_Unload(Cancel As Integer)Cancel = 1i = 255Timer2.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()i = i + 5     SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_LAYERED     SetLayeredWindowAttributes Me.hwnd, 0, i, LWA_ALPHA  '150为透明度(0-255)     If i = 255 Then Timer1.Enabled = FalseEnd SubPrivate Sub Timer2_Timer()i = i - 5     SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_LAYERED     SetLayeredWindowAttributes Me.hwnd, 0, i, LWA_ALPHA  '150为透明度(0-255)     If i = 0 Then Timer1.Enabled = False: EndEnd Sub

如何实现让一个窗体不能被关闭(VB编程) VB实现窗体的淡入淡出效果 vb6.0中不允许改变窗体大小 VB中如何实现一个窗体始终处于最上方 在VB6中，添加了一个窗体，怎样能用按钮来触发这个窗体？是什么语句？我忘记了。 VB6里,如何彻彻底底的把一个窗体从内存中卸载? VB中如何让一个窗体移动范围限制在另一窗体的框架内,并总是在这一窗体上面 怎样用VB6.0实现将窗体最小化到托盘区 C#中，怎么实现在第一个窗体上点一个按钮，出现第二个窗体 在ACESS窗体中插入一个子窗体,如何在主窗体中对子窗体进行筛选? 如何在VB6中实现向本地发送封包 在VB6中，如何实现后期绑定事件？ 如何在vb中实现一句话间隔1秒、一个字一个字地显示在窗体上？ ASPNET中如何在Page_Load中让窗体关闭？ 在VB6.0中如何实现不断的从COM口取数据? vb6.0中如何实现模糊查找Access数据库 VB6.0中如何实现逐行读入文本文件? 在vb6.0中如何用richtextbox实现书签功能 在VB6中如何让listbox突出显示某一行 在VB6中如何让gif图片动起来？ 在vb 6.0中我想在MDI窗体中加载一个TreeView控件.怎么实现啊? 有关vb6.0中个别窗体打不开的问题! 请问C#如何在一个类或一个窗体中使用用另一个窗体的控件？ 在vb.net中，如何在一个窗体上打开另一个窗体？