大家谁能告诉我象MSN那样在右下角弹出窗口是怎么样做出来得亚,十万火急

Question

大家谁能告诉我象MSN那样在右下角弹出窗口是怎么样做出来得亚,十万火急

Answer 1

在后台运行一个timer，循环消息队列，当有消息时窗口弹出效果很容易了，
form1.visible=ture
form1.top = 12000
Private Sub Timer1_Timer()
   If form1.top > 0 then
        exit sub
   end if
  form1.top=form1.top-20
end sub

Answer 2

建议使用Sleep()和循环，就像这样：
Do Until Me.Top < Screen.Height-Me.Height
    Sleep 10
    DoEvents
    Me.Top=Me.Top-15
LoopSleep()是API函数。还有就是要防止函数重入。
楼上的，最好使用15Twips作为一单位，因为通常1pixel=15Twips啊