谁能帮我看看这个托盘程序吗？我想使文本框中的文本在托盘图标上从右到左移动，但是今天怎么也实现不了，怪了！本人qq:599183369
Option Explicit
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Private Type NOTIFYICONDATA
        cbSize As Long
        hwnd As Long
        uID As Long
        uFlags As Long
        uCallbackMessage As Long
        hIcon As Long
        szTip As String * 64
End Type

Private Const NIF_ICON = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_TIP = &H4
Private Const NIM_ADD = &H0
Private Const NIM_DELETE = &H2
Private Const NIM_MODIFY = &H1

Private Const WM_MOUSEMOVE = &H200

Dim MyIcon As NOTIFYICONDATA

Dim X As Long

Private Sub Form_Load()
  
  X = Picture1.ScaleWidth: Picture1.FontSize = 20

  Me.ScaleMode = vbPixels
  With MyIcon
    .cbSize = Len(MyIcon)
    .hIcon = Picture1.Picture
    .hwnd = Me.hwnd
    .szTip = "test" & Chr(0)
    .uCallbackMessage = WM_MOUSEMOVE
    .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
  End With
  Shell_NotifyIcon NIM_ADD, MyIcon
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Shell_NotifyIcon NIM_DELETE, MyIcon
End Sub

Private Sub Timer1_Timer()
    Picture1.Cls: X = X - 1
    If Picture1.TextWidth(Text1) + X < 0 Then X = Picture1.ScaleWidth
    Picture1.CurrentX = X: Picture1.CurrentY = 0: Picture1.Print Text1.Text
     
    MyIcon.hIcon = Picture1.Picture
    Shell_NotifyIcon NIM_MODIFY, MyIcon
End Sub

[培训]《安卓高级研修班(网课)》月薪三万计划，掌握调试、分析还原ollvm、vmp的方法，定制art虚拟机自动化脱壳的方法