Private Sub Timer1_Tick(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Timer1.Tick dim frmopa As Double = 1 frmopa -= 0.1 Me.Refresh() If frmopa > 0 Then Me.Opacity = frmopa Else frmopa = 1 End If End Sub 原文链接：https://www.f2er.com/vb/264230.html