Sub UpdateInbox
TreeViewInbox.RemoveAllNodes
For MSG = 0 To TBLSMSInbox.RowCount-1
If TblSMSInbox.Cell( "READ" , MSG ) = False Then
TreeViewNode1.Value = TreeViewInbox.AddNewNode( TblSMSInbox.Cell( "FROM" , MSG ) & " -- " & Time( TblSMSInbox.Cell( "DATE" , MSG ) ) & " , " & Date( TblSMSInbox.Cell( "DATE" , MSG ) ) )
TreeViewNode2.Value = TreeViewNode1.AddNewNode( TblSMSInbox.Cell( "BODY" , MSG ) )
TreeViewInbox.ImageIndex = 0
TreeViewInbox.SelectedImageIndex = 0
Else
TreeViewNode1.Value = TreeViewInbox.AddNewNode( TblSMSInbox.Cell( "FROM" , MSG ) & " -- " & Time( TblSMSInbox.Cell( "DATE" , MSG ) ) & " , " & Date( TblSMSInbox.Cell( "DATE" , MSG ) ) )
TreeViewNode2.Value = TreeViewNode1.AddNewNode( TblSMSInbox.Cell( "BODY" , MSG ) )
TreeViewInbox.ImageIndex = 1
TreeViewInbox.SelectedImageIndex = 1
End If
Next
TreeViewInbox.ExpandAll
End Sub