Программа простенкьая, сидит в трее и смоготрит через каждый установленный период с помоью комманда пришла ли новая информациия если пришла то выводить сообщение вот и все..
Все равботает но почему то при загрузке съедает 15 мб оперативки и не отдает уже до выгрузке
Вот код котрый происходит при загрузке программы

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = IntervalTimer
Timer1.Enabled = True
Dim cn As New SqlClient.SqlConnection(sConnectionString)
Dim cmd As New SqlClient.SqlCommand()
Dim NewTime As Date
cmd.Connection = cn
cmd.CommandText = "Proc_1"
cmd.CommandType = CommandType.StoredProcedure
Dim PrmnewTime As SqlClient.SqlParameter = _
cmd.Parameters.Add("@time", SqlDbType.DateTime)
PrmnewTime.Direction = ParameterDirection.Output
Try
cn.Open()
cmd.ExecuteNonQuery()
LastTime = CDate(PrmnewTime.Value)
Catch ee As Exception
MsgBox(ee.Message)
Exit Sub
Finally
cn.Close()
End Try
End Sub