设置窗口的背景色Lavender,背景图片用*.png格式，窗口会略大于背景
然后afterload 设置如下：
e.Form.BaseForm().TransparencyKey = Color.Lavender
e.form.baseform.Opacity = 0.9 '窗口透明度(0.1-??)
forms("用户登录").baseform.ShowInTaskBar = True
e.Form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None '消除窗口的边框
myform = e.Form.BaseForm
Dim WS_SYSMENU As Integer = &H00080000
Dim Min As Integer = &H00020000
Dim windowLong As Integer = GetWindowLong(new HandleRef(e.Form.Baseform, e.Form.Baseform.Handle), -16)
SetWindowLong(new HandleRef(e.Form.Baseform, e.Form.Baseform.Handle), -16, windowLong Or WS_SYSMENU Or min)
在W7/8/10系统下 超出PNG区域的位置会显示成透明的，但在XP系统下，这个Lavender的颜色显示出来了，没有变透明！
加好友 
发短信
Post By：2016/2/2 10:04:00 [显示全部帖子]
