我在运行一个时间比较长的程序,比如说要1分钟,那这1分钟时间计算机是在运行的可是屏幕上是看不到的,如何让操作的人知道程序在运行,我是不知道怎么编写这个程序,有人知道的话发一个啊

没人知道吗

弄到任务栏里去比较不占地方Command1添加图标Command2移出图标Command3隐藏图标Command4退出Command5窗口消失Option Explicit Const MAX_TOOLTIP As Integer = 64 Const NIF_ICON = &H2 '删除图标 Const NIF_MESSAGE = &H1 Const NIF_TIP = &H4 Const NIM_ADD = &H0 '添加图标到任务栏提示区 Const NIM_DELETE = &H2 Const WM_MOUSEMOVE = &H200 Const WM_LBUTTONDOWN = &H201 Const WM_LBUTTONUP = &H202 Const WM_LBUTTONDBLCLK = &H203 Const WM_RBUTTONDOWN = &H204 Const WM_RBUTTONUP = &H205 Const WM_RBUTTONDBLCLK = &H206 Const SW_RESTORE = 9 Const SW_HIDE = 0 Private Type NOTIFYICONDATA cbSize As Long hwnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * MAX_TOOLTIPEnd TypePrivate Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" _ (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As LongPrivate nfIconData As NOTIFYICONDATAPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim lMsg As Single lMsg = X / Screen.TwipsPerPixelX If lMsg = WM_RBUTTONUP Or lMsg = WM_LBUTTONUP Then Me.PopupMenu sysEnd SubPrivate Sub command1_Click() nfIconData.hwnd = Me.hwnd nfIconData.uID = Me.Icon nfIconData.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP nfIconData.uCallbackMessage = WM_MOUSEMOVE nfIconData.hIcon = Me.Icon.Handle nfIconData.szTip = "System Tray Example" & vbNullChar nfIconData.cbSize = Len(nfIconData) Call Shell_NotifyIcon(NIM_ADD, nfIconData)End SubPrivate Sub command2_Click() Call Shell_NotifyIcon(NIM_DELETE, nfIconData)End SubPrivate Sub command3_Click() ShowWindow Me.hwnd, SW_HIDEEnd SubPrivate Sub command4_Click() Unload MeEnd SubPrivate Sub Command5_Click() Me.Visible = FalseEnd SubPrivate Sub move_Click() Call Shell_NotifyIcon(NIM_DELETE, nfIconData)End SubPrivate Sub show_Click() Me.Visible = TrueEnd SubPrivate Sub exit_Click() Unload MeEnd Sub