用VB编写制作透明窗体，界面自行设计。

Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click
Me.Opacity -= 0.2 ' 这里可以改成 0.01 以使单击过程减慢窗体变浅的速度
Me.Text = "触发了 Click 事件，继续单击窗体将越来越浅，双击将结束程序"
End Sub

Private Sub Form1_DoubleClick(sender As Object, e As EventArgs) Handles Me.DoubleClick
End
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Maximized
Me.Text = "触发了 Load 事件，单击将使窗体颜色变浅"
End Sub