Среда Visual Basic STUDIO’2010 Professional
В примере проекта VB Studio'2010 "AppEvents" после текста
"Disconnected" выводится значок (Bitmap ) disconnected.ico
В моём же проекте Bitmap disconnected.ico не выводится –
смотри правый снимок!
Как его вывести? Ведь текст процедур одинаковый. Значения
Свойств контролов (элементов управления)
StatusStrip1 и ConnectedStatusLabel одинаковые.
Спасибо.

ApplicationEvents.vb
Namespace My
Class MyApplication

'Startup: возникает при запуске приложения перед созданием начальной формы.
'Shutdown: возникает после закрытия всех форм приложения. Это событие не вызывается при прерывании работы приложения из-за ошибки.
'UnhandledException: возникает, если в приложение обнаруживает необработанное исключение.
'StartupNextInstance: возникает при запуске приложения, допускающего одновременное выполнение только одной копии, если это приложение уже активно.
'NetworkAvailabilityChanged: возникает при изменении состояния подключения: при подключении или отключении.

''' <summary>
''' Обновляйте состояние сетевого подключения в главной форме при каждом изменении состояния подключения.
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub MyApplication_NetworkAvailabilityChanged(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs) Handles Me.NetworkAvailabilityChanged
SetConnectionStatus(e.IsNetworkAvailable)
End Sub

''' <summary>
''' Включите сюда логику для выполнения перед загрузкой любых форм
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
' При запуске приложения установите состояние подключения в строке состояния
SetConnectionStatus(My.Computer.Network.IsAvailable)
End Sub

''' <summary>
''' Обновите строку состояния, чтобы указать текущее состояние сетевого подключения
''' </summary>
''' <param name="connected"></param>
''' <remarks></remarks>
Public Sub SetConnectionStatus(ByVal connected As Boolean)
With My.Forms.MainForm.ConnectedStatusLabel
If (connected) Then
.Image = My.Resources.connected.ToBitmap
.Text = My.Resources.ConnectedText
Else
.Image = My.Resources.disconnected.ToBitmap
.Text = My.Resources.DisconnectedText
End If
End With
End Sub

End Class
End Namespace

высылаю проект-пример и мой проект

bazile,
большое СПАСИБО! ОК!