لحظة اتذكرها لاني نسيتها 
طبعا اللي عاجبني بالمثال المحاذاة بمربع الرسالة انها يمين توي عرفتها
كود :
If My.Computer.Network.IsAvailable Then
Label1.BackColor = Color.Green
Label1.Text = "الايثرنت موصول والراوتر او المودم يعمل"
If My.Computer.Network.Ping("google.com") = True Then
Label2.BackColor = Color.Green
Label2.Text = "الانترنت موصول"
Else
Label2.BackColor = Color.Red
Label2.Text = "الانترنت ليس موصول"
End If
Else
Label1.BackColor = Color.Red
Label1.Text = "الايثرنت ليس موصول او المودم ليس قيد التشغيل"
End If طبعا اللي عاجبني بالمثال المحاذاة بمربع الرسالة انها يمين توي عرفتها
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
