请问如何做出以下的效果出来

Question

form load 的时候是缓慢的从屏幕 右下角升起来，一直靠在屏幕右下..
form unload的时候是缓慢的从屏幕右下角降下去乃止消失

Answer 1

哦
就是瑞星的报告窗口是不是阿。
Private Sub Form_Load()
Timer1.Interval = 1
Form1.Top = Screen.Height
Form1.Left = Screen.Width - Form1.Width
End SubPrivate Sub Timer1_Timer()
If Form1.Top > Screen.Height - Form1.Height Then
Form1.Top = Form1.Top - 50
Else
Exit Sub
End If
End Sub只是勉强实现，不很好你自己改改吧

Answer 2

2楼的东东试了不错Private Sub Cmd退出_Click()
Timer1.Interval = 1
Form1.Top = Screen.Height - Form1.Height
Form1.Left = Screen.Width - Form1.Width
Timer2.Enabled = True
End SubPrivate Sub Form_Load()
Timer1.Interval = 1
Timer2.Interval = 1
Timer2.Enabled = False
Form1.Top = Screen.Height
Form1.Left = Screen.Width - Form1.WidthEnd SubPrivate Sub Timer1_Timer()
    If Form1.Top > Screen.Height - Form1.Height Then
       Form1.Top = Form1.Top - 50
    Else
       Timer1.Enabled = False
       Exit Sub
    End If
End SubPrivate Sub Timer2_Timer()
    If Form1.Top <> Screen.Height Then
       Form1.Top = Form1.Top + 50
    Else
       Unload Me
    End If
End Sub