下面是一段"右下角弹出小窗口"的代码:
请问如何向客户端的小窗口发送新的信息?(可以直接在附件上改)
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

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

yx.label1.caption = "你需要的内容"

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

呵呵，谢谢版主`

我修改了一下，弹出窗口后5秒自动退出，
完整代码

Dim a As Integer

Private Sub Form_Initialize()
a = 5
End Sub

Private Sub Form_Load()
Me.Width = 3000: Me.Height = 2000 '窗体的大小
Me.Move Screen.Width - Me.Width, Screen.Height - 405
Me.Timer1 = True
Me.Timer1.Interval = 30
Me.Timer3.Interval = 30
Me.Timer2.Interval = 1000
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

Private Sub Timer2_Timer()


If a <= 0 Then
Timer2.Enabled = False
Timer3.Enabled = True
Else
a = a - 1
End If
End Sub

Private Sub Timer3_Timer()
Me.Top = Me.Top + 50
 If Me.Top >= Screen.Height Then
  End
  
End If
End Sub

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