主题：异步函数

老师，请教一下异步函数的使用，我为了避免重复点击某按钮，设计了一个半遮罩窗口，用的gif动图，在执行代码前打开窗口，执行代码结束关闭窗口，这种方式gif动图不流畅，我记得之前问过，需要用异步函数处理，向请教一下具体怎么使用异步函数呢？

比如原代码是：

Forms("加载进度").Open()

......  '其他代码

Forms("加载进度").Close()

老师，这个怎么让窗口全屏遮罩，图片大小不变？

找到了，改这儿就行了

Dim waitMesspic As New System.Windows.Forms.PictureBox()
waitMesspic.Image = System.Drawing.Image.FromFile(ProjectPath & "Images\进度2.gif")
waitMesspic.Dock = System.Windows.Forms.DockStyle.Fill                          '锚定方式
waitMesspic.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage             '图片缩放模式,等比拉伸,Normal:标准CenterImage:居中StretchImage:拉伸Zoom:等比拉伸
waitMess.Controls.Add(waitMesspic)
waitMess.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None            '消除边框
waitMess.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen    '位置居中
waitMess.TransparencyKey = Color.red
waitMess.OPacity = 0.8                                                          '模糊系数0-1
'waitMess.Width = 1280/1.5                                                       '固定大小
'waitMess.Height = 720/1.5                                                       '固定大小
waitMess.Width = SysInfo.WorkingAreaWidth                                      '屏幕大小
waitMess.Height = SysInfo.WorkingAreaHeight                                    '屏幕大小

'上两行红色代码用下面代码直接设置窗口最大化也可以

waitMess.windowstate = 2                                              '窗口最大化