VB.net 表單淡入淡出+縮放特效

測試用。

很懶所以打很少，請各位客倌研究一下吧XD
VB程式碼
方法:
1.匯入模組(把程式碼貼到新模組.vb)
2.叫出新FORM的時候:
Dim F As New Form()
Dim FADE As New FadeControl(F)
FADE.ShowForm()

成員方法:
Public Sub ShowForm() '淡入視窗
Public Sub HideForm() '淡出視窗
事件
Public Event Hided(ByVal sender As Object) '完全隱藏時
Public Event Shown(ByVal sender As Object) '完全顯示時