主题：请问

控制窗口大小是0，然后在timertick事件写上你控制大小的代码啊

无语，自己重新看帖子啊

无语，你从来就没自己写过代码。

全局代码

 

Public frm As Windows.Forms.form
Public Sub myTimer_Elapsed(sender As object, e As System.Timers.ElapsedEventArgs)
frm.width += 2
frm.height += 2
If frm.height >= 300 Then
    sender.Enabled = False
End If
End Sub

 

调用

 

frm = New Windows.Forms.Form
frm.Text = "欢迎使用"
frm.Topmost = True
frm.width = 0
frm.height = 0

Dim lbl As new Windows.Forms.Label
lbl.text = "提示提示提示"
lbl.Top = 10
lbl.left =  10
frm.Controls.Add(lbl)

frm.topmost = True
frm.Show
frm.Top = (SysInfo.ScreenHeight - frm.height - 300) / 2
frm.left = (SysInfo.ScreenWidth - frm.width - 300) / 2
Dim myTimer As new System.Timers.Timer(10)
addhandler myTimer.Elapsed, addressof myTimer_Elapsed

myTimer.AutoReset = True
myTimer.Enabled = True

自食其力，以前已经给你写过啊

其余的效果，参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77908&skin=0

 

 

Dim frm As New Windows.Forms.Form
frm.Text = "欢迎使用"
frm.Topmost = True
frm.width = 500
frm.height = 500

Dim lbl As new Windows.Forms.Label
lbl.text = "提示提示提示"
lbl.Top = 10
lbl.left =  10
frm.Controls.Add(lbl)

frm.topmost = True
AnimateWindow(frm.Handle, 300,  AW_HOR_NEGATIVE)
frm.Top = (SysInfo.ScreenHeight - frm.height) / 2
frm.left = (SysInfo.ScreenWidth - frm.width) / 2
frm.Show

 

无语，你不可能有进步

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=78945&skin=0

 

 无语，看52楼啊。

52楼帖子的2楼啊。废话不想再说。