Attribute VB_Name = "mdlListing"
Option Explicit

Const YELLOW = &H80000018
Const WHITE = &H80000005
Const BLACK = &H80000008

Public conListing As New ADODB.Connection
Public clsPatient As New Patient
Public recPatient As New ADODB.Recordset

Public Sub Emphasize(msflexVar As MSHFlexGrid, lHigh As Boolean)
   If msflexVar.Rows > 0 Then
      If lHigh Then
         msflexVar.CellBackColor = YELLOW
         msflexVar.CellForeColor = BLACK
      Else
         msflexVar.CellBackColor = WHITE
         msflexVar.CellForeColor = BLACK
      End If
   End If
End Sub