Function ShowMessageText(ByVal msg As PBARADT.Message, ByVal msgType As String) As ListViewItem Dim lastName As String = msg.PID.PatientName.FamilyName.Value Dim firstname As String = msg.PID.PatientName.GivenName.Value Dim mi As String = msg.PID.PatientName.MiddleInitialOrName.Value Dim address As String = msg.PID.PatientAddress.StreetAddress.Value Dim city As String = msg.PID.PatientAddress.City.Value Dim state As String = msg.PID.PatientAddress.StateOrProvince.Value Dim zipcode As String = msg.PID.PatientAddress.ZipOrPostalCode.Value Dim ssn As String = msg.PID.SSNNumber.Value Dim accountnumber As String = msg.PID.PatientAccountNumber.IDNumber.Value Dim medicalrecord As String = msg.PID.AlternatePatientID.Value.Substring(0, 9) ' Adding ListView Columns Dim str(6) As String Dim itm As ListViewItem str(0) = msgType str(1) = lastName str(2) = firstname str(3) = address str(4) = city str(5) = state str(6) = zipcode itm = New ListViewItem(str) Return (itm) End FunctionThanks again