下面是一段"右下角弹出小窗口"的代码:
请问如何向客户端的小窗口发送新的信息?(可以直接在附件上改)
Private Sub Form_Load()
Me.Width = 3000: Me.Height = 3000 '窗体的大小
Me.Move Screen.Width - Me.Width, Screen.Height - 405
Me.Timer1 = True
Me.Timer1.Interval = 30
End Sub

Private Sub Timer1_Timer()
Me.Top = Me.Top - 50
If Me.Top < Screen.Height - Me.Height - 405 Then
    Timer1.Enabled = False
End If
End Sub

还有一个问题是,右下角小窗口会多次弹出,如何让其只弹出一次就退出?

版主,能写详细些么?
我在网上找到一些代码,太复杂,也不管用啊

楼上的代码运行后出现如下错:
能否在偶的附件上直接改?