怎样使vb的程序运行后自动缩到任务栏，跟一些病毒防火墙一样?

这是源代码：
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As LongConst NIF_ICON = &H2
Const NIF_MESSAGE = &H1
Const NIF_TIP = &H4
Const NIM_ADD = &H0
Const NIM_DELETE = &H2
Const WM_RBUTTONUP = &H205
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
Dim Datas As NOTIFYICONDATAPrivate Sub Form_Load()    With Datas
        .cbSize = Len(Datas)
        .hwnd = Me.hwnd
        .uID = 10&
        .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
        .uCallbackMessage = WM_RBUTTONUP
        .hIcon = Image1.Picture    '在窗体上放一个Image控件，上面放你的图标
        .szTip = "提示"   '当鼠标移上去时的提示语句
    End With    If Shell_NotifyIcon(NIM_ADD, Datas) = 0 Then
        '如果想删除图标，可以把 NIM_ADD 改为 NIM_DELETE
        MsgBox "不能加入图标！"
    End If
End Sub