模仿QQ屏幕提示

Private Sub Form_Load()
Me.Move Screen.Width - Me.Width, Screen.Height + Me.Height - GetTaskbarHeight, ScaleWidth, ScaleHeight '设置主窗口位置 + GetTaskbarHeight是任务栏的高度
End Sub
Private Sub Label1_Click()
Timer2.Enabled = True '启动Timer2
End Sub
Private Sub Timer1_Timer()
Me.Top = Me.Top - 50 'TOP上移大小
If Me.Top <= Screen.Height - Me.Height Then '当ME.TOP 小于等于 屏幕高度减去 ME的高度的时候
Me.Top = Screen.Height - Me.Height - GetTaskbarHeight 'ME.TOP就等于屏幕高度-ME的高度-任务栏的高度
Timer1.Enabled = False '释放TIMER1
End If
End Sub
Private Sub Timer2_Timer()
Me.Top = Me.Top + 60
If Me.Top >= Screen.Height Then
Timer2.Enabled = False
Unload Me
End If
End Sub