求VB被360报可疑程序,该怎么解决

求VB被360报可疑程序
我的程序很简单就是用了一个WebBrowser打开网站.生成EXE文件后打,
我再用浏览器打开工行网站或者其它的网站,都会报我这个程序为可疑程序..

这个问题如何解决.
代码如下:

Dim WithEvents M_Dom As MSHTML.HTMLDocument

Option Explicit

Private InitWidth As Long       ' Form 的原始大小

Private InitHeight As Long

Private Yan As Object

Private IeVerSion As String


Private Declare Sub ZeroMemory Lib "KERNEL32" Alias "RtlZeroMemory" (dest As Any, ByVal numBytes As Long)

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Const PM_NOREMOVE = &H0

Private Const PM_NOYIELD = &H2

Private Const PM_REMOVE = &H1

Private Type POINTAPI

    X As Long

    Y As Long

End Type

Private Type Msg

    hwnd As Long

    Message As Long

    wParam As Long

    lParam As Long

    time As Long

    pt As POINTAPI

End Type

Private Const WM_RBUTTONDBLCLK = &H206

Private Const WM_RBUTTONDOWN = &H204

Private Const WM_RBUTTONUP = &H205

Private Declare Function TranslateMessage Lib "user32" (lpMsg As Msg) As Long

Private Declare Function DispatchMessage Lib "user32" Alias "DispatchMessageA" (lpMsg As Msg) As Long

Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long

Private Declare Function WaitMessage Lib "user32" () As Long

Private Declare Function GetMessage Lib "user32" Alias "GetMessageA" (lpMsg As Msg, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long) As Long

Private bCancel As Boolean

Private webHwnd As Long '窗体中webbrowser控件的句柄



Private Sub Form_Load()


'Set Yan = CreateObject("WScript.Shell")

'IeVerSion = Yan.RegRead("HKLM\Software\Microsoft\Internet Explorer\Version")

'IeVerSion = Left(IeVerSion, 1)

'If IeVerSion = 6 Then

'    MsgBox "你的IE版本过低，请升级你的IE后再尝试运行本软件。"

'   WebBrowser1.Navigate ("http://download.microsoft.com/download/8/3/9/83941BA7-BDE8-4402-BEC4-51D670DF2BAB/IE8-WindowsXP-x86-CHT.exe")

'Else

WebBrowser1.Navigate ("http://www.qq.com")

'End If

Me.WindowState = 2

InitWidth = ScaleWidth

InitHeight = ScaleHeight

Dim Ctl As Control

' 记录每个 Control 的原始位置、大小、字型大小, 放在 Tag 属性中

On Error Resume Next '确保left, top, width, height, Tag属性没有全有的Control

For Each Ctl In Me   '也能正常执行