Visual Basic

Private Sub dtgNewMrs_cellMouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles dtgNewMRs0.MouseHover, dtgNewMRs1.MouseHover, dtgNewMRs2.MouseHover, dtgNewMRs3.MouseHover, dtgNewMRs4.MouseHover, dtgNewMRs5.MouseHover

        Dim remMRNum As String
        Dim remMRLin As String
        Dim tTip As String = Nothing
        Dim tCount As Integer = 1

        Dim grvScreenLocation As Point = sender.PointToScreen(sender.Location)
        Dim tempX As Integer = DataGridView.MousePosition.X - grvScreenLocation.X + sender.Left
        Dim tempY As Integer = DataGridView.MousePosition.Y - grvScreenLocation.Y + sender.Top
        Dim hit As DataGridView.HitTestInfo = sender.HitTest(tempX, tempY)

        Dim chkRemarks As DataTable = rSet.Tables("RemarksMR")

        With sender
            remMRNum = .Rows(hit.RowIndex).Cells(3).Value
            remMRLin = .Rows(hit.RowIndex).Cells(4).Value

            Dim tQry = (From rems In chkRemarks.AsEnumerable()
                        Where rems.Field(Of String)("MR_Num") = remMRNum And
                           rems.Field(Of String)("MR_Line") = remMRLin).ToList()

            Dim r = From t In tQry
                    Select t

            If r.Count > 0 Then
                For Each row As DataRow In r
                    tTip = tTip & Str(tCount) & ".  " & row.Item(3) & Chr(13)
                    tCount += 1
                Next
            End If
        End With

        remTip.SetToolTip(sender, tTip)

Mybindingsource.datasource=(From t in context.myobjects order by t.name select t).ToList

Function findindex(startposition as integer) As integer
         Dim p as Myobject
         Dim i as integer
         For i=startposition to Mybindingsource.count-1
           p=MyBindingsource.item(i)
           if p.value=3 then return i
         Next
         return 0
End Function

Public Function ConnectDataBase() As System.Data.OleDb.OleDbConnection
       strPathData = MyPath(Application.StartupPath) & "Data\"
       strPathImages = MyPath(Application.StartupPath) & "Images\"
       Dim strConn As String = _
               "Provider = Microsoft.ACE.OLEDB.12.0;"
       strConn +=
           "Data Source = " & strPathData & "Contact.accdb"

       Conn = New OleDb.OleDbConnection(strConn)
       ' Create Connection
       Conn.ConnectionString = strConn
       ' Return
       Return Conn
   End Function