Visual Basic

Description:
This program has potentially unwanted behavior.

Advice:
Permit this detected item only if you trust the program or the software publisher.

Resources:
regkey:
HKLM\Software\Microsoft\Windows\CurrentVersion\Run\\ABCD

runkey:
HKLM\Software\Microsoft\Windows\CurrentVersion\Run\\ABCD
file:

D:\Program Files\ABCD\ABCD.exe

Category:
Not Yet Classified

Public Class Form1

    Public trash As New Class1

    Private WithEvents eventsUpdateSSclass1 As UpdateStatusStrip.Class1

    Private Sub UpdateStatusStrip(ByVal msg As String, ByVal color As Color) Handles ventsUpdateSSclass1.UpdateStatusStrip

        Me.ToolStripStatusLabel1.Text = msg
        Me.ToolStripStatusLabel1.BackColor = color
        Me.StatusStrip1.Refresh()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        trash.runRunRun()
    End Sub

End Class 

Public Class Class1

    Public Sub New()
    End Sub

    Public Event UpdateStatusStrip(ByVal msg As String, ByVal color As Color)

    Public Sub runRunRun()
        Dim k As Integer = 0
        For i As Integer = 1 To 100
            For j As Integer = 1 To 1000
                k = j + i
                RaiseEvent UpdateStatusStrip(CStr(k), Color.Orange)
                'call UpdateStatusStrip(CStr(k), Color.Orange) is not working.

            Next
        Next
        RaiseEvent UpdateStatusStrip(String.Empty, Nothing) 'to check
    End Sub

End Class