189 8069 5689
MessageBox里的Show里没有自动关闭的方法，但是你可以自定义一个MessageBox,MessageBox就是一个窗体，你新建一个窗体Form2，添加一个public属性message和一个定时器timer1,timer1的interval设置成你想要的时间，在Form2的Load事件启动timer1，Timer1_Tick事件里关闭窗口Me.Close(),然后在需要显示Messagebox的时候，在主窗口Form1里设置messge属性，然后用show方法弹出窗口就可以了。
10年的汝阳网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。成都全网营销的优势是能够根据用户设备显示端的尺寸不同，自动调整汝阳建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。成都创新互联从事“汝阳网站设计”,“汝阳网站推广”以来，每个客户项目都认真落实执行。
Form1程序：（添加了一个Button1）
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim f2 As Form2 = New Form2
f2.Message = "提示"
f2.ShowDialog()
End Sub
End Class
Form2程序：(添加了一个Label1显示信息和一个Timer1用于计时，Form2可以自定义成你想要的样式，标题，按钮，窗体样式等)
Public Class Form2
'自定义属性 显示提示信息
Public WriteOnly Property Message As String
Set(value As String)
Label1.Text = value
End Set
End Property
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Me.Close()
End Sub
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Interval=3000 '定时3秒关闭窗口
Timer1.Enabled = True
End Sub
End Class
代码已在VS2017测试通过。
调用api
在Visual Baisc.net中的声明：
Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = H2 '模拟鼠标左键按下
Public Const MOUSEEVENTF_LEFTUP = H4 ’模拟鼠标左键释放
Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模拟鼠标中间键按下
Public Const MOUSEEVENTF_MIDDLEUP = H40 '模拟鼠标中间键释放
Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模拟鼠标右键按下
Public Const MOUSEEVENTF_RIGHTUP = H10 '模拟鼠标右键释放
Public Const MOUSEEVENTF_MOVE = H1 '模拟鼠标指针移动
例：
mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0
'在（10，10）模拟鼠标左键按下
vb我不是很会，我给你说个思路吧。timer控件设定计时开始和速度，假设为一秒一下。在timer事件中调用button的单击事件，当然timer中还需要定义一个变量，用来做自增运算，一遍计算运行的时间。当变量到100后，弹出窗口提示完成，timer控件停止就行了。如果还是不明白我可以给你编个c#的代码，只要是vb的语法不是很会。
我的做法是先写入一个图片变量，然后再写入到容器上。容器设置双缓冲
还有你说的控件必须透明不太明白，可以直接在容器上绘图，不需要控件，图片的透明度可以用RGBA色的A值（透明度）来控制
我这个也是实时翻滚刷新的，不会闪！