Public Class Form1
    Inherits System.Windows.Forms.Form  
Private Sub Form1_Load(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles MyBase.Load
Dim pos As Point = New Point(100, 50) '設(shè)置窗體初始位置
Me.DesktopLocation = pos
Timer1.Interval = 10 '設(shè)置Timer的值
Timer1.Enabled = True
Timer2.Interval = 10
Timer2.Enabled = False
    End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles Timer1.Tick
Dim pos As Point = New Point(Me.DesktopLocation.X + 2, Me.DesktopLocation.Y + 1) 

'窗體左上方橫坐標的timer1加
If pos.X < 600 Or pos.Y < 400 Then
Me.DesktopLocation = pos
Else
Timer1.Enabled = False
Timer2.Enabled = True
End If
    End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles Timer2.Tick

Dim pos As Point = New Point(Me.DesktopLocation.X - 2, Me.DesktopLocation.Y - 1) 

'窗體的左上方橫坐標隨著timer2減一      

  If pos.X > 100 Or pos.Y > 50 Then
Me.DesktopLocation = pos
Else
Timer1.Enabled = True
Timer2.Enabled = False
End If
    End Sub

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim tps As Integer
Dim bol As Boolean

Private Sub TrackBar1_Scroll(ByVal sender As Object, 

ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Me.Opacity = TrackBar1.Value / 100
Label1.Text = "窗體透明度：" & CStr(Me.Opacity * 100) & "%"
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, 

ByVal e As System.EventArgs) Handles Timer1.Tick
If bol = False Then
tps = tps + 1
Me.Opacity = tps / 100
If Me.Opacity >= 1 Then
    Timer1.Enabled = False
    bol = True
End If
Else
tps = tps - 1
Me.Opacity = tps / 100
If Me.Opacity <= 0 Then
    Timer1.Enabled = False
    bol = False
End If
End If
    End Sub

Private Sub Form1_Load(ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
End Sub

Private Sub Form1_Closing(ByVal sender As Object, 

ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Timer1.Enabled = True
If MsgBox("你確實要關(guān)閉窗體嗎？", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
e.Cancel = False
Else
Timer1.Enabled = False
Me.Opacity = 1
tps = 100
bol = True
e.Cancel = True
End If
End Sub