[عبدالله الدوسري]

1 - أنشئ متغير جديد ( في أعلى الـ Form ) كالتالي :

كود :

   Dim MyNotifyIcon As New NotifyIcon With {.Visible = True, .Text = "***اسم البرنامج***"}

2 - في الحدث Form1_Load النافذة الرئيسية ( أول نافذة تفتح في المشروع ) , نعين الأيقونة ( Icon ) لهذا الكائن , لأنه بدونها لن تظهر أي رسالة , ولسرعة الشرح , أخذت الأيقوة الخاصة بالـ Form نفسة 

كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.MyNotifyIcon.Icon = Me.Icon
   End Sub

3 - في الحدث Form1_FormClosed عند إغلاق النافذة الرئيسية ( أول نافذة تفتح في المشروع ) , نقوم بإخفاء هذا الكائن , ثم نتخلص من الكائن , بدون هذا الإجراء ستظل أيقونة الكائن في صينية النظام جنب الساعة , ولن تختفي حتى تمرر الماوس فوقها. 

كود :

   Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
       Me.MyNotifyIcon.Visible = False
       Me.MyNotifyIcon.Dispose()
   End Sub

   








4 - بإستدعاء هذا الأمر يمكنك إظهار رسالة تنبيهية ( Notification Message ) 
5000 يعني عدد الثواني لمدة ظهور الرسالة التنبيهية , وهي تحسب بالمللي ثانية , كل ثانية = 1000 مللي ثانية , الـ 5000 مللي ثانية تعني 5 ثواني
يمكنك تغيير ToolTipIcon.Info , البراميتر الأخير , فهو لتحديد نوع الأيقونة داخل الرسالة التنبيهية , وليس لأيقونة للكائن بجانب الساعة.

كود :

       Me.MyNotifyIcon.ShowBalloonTip(5000, "عنوان الرسالة هنا", "محتوى نص الرسالة هنا", ToolTipIcon.Info)

5 - بعد عمل الخطوة رقم ( 1 , 2 , 3 ) قم بتغيير الكود الذي لديك , بهذا الكود :

كود :

       'لعمل رساله تظهر اذا جاء وقت كتابة النتيجه
       Dim searchDate1 As Date = Now.ToShortDateString
       dtPatientstoresuldate.Clear()
       daPatientstoresuldate = New OleDbDataAdapter("select * from Patients WHERE ResultDate  = # " & searchDate1 & " # ", connAccess2007)
       daPatientstoresuldate.Fill(dtPatientstoresuldate)
       DataGridView1.DataSource = (dtPatientstoresuldate)

       Dim Msg As String = ""
       For i As Integer = 0 To DataGridView1.Rows.Count - 2
           Msg &= i & " - " & DataGridView1.Rows(i).Cells(6).Value & vbNewLine
       Next

       Me.MyNotifyIcon.ShowBalloonTip(5000, "نتائج المرضى :", "برجاء طباعة نتائج المرضى التالية أسمائهم" & vbNewLine & Msg, ToolTipIcon.Info)