'setup the table view for messaging
OpTableView1.SetColumns(Array As String("Time","Sender","Message"))
OpTableView1.SetColumnSortable(0,True) 'can sort by time
OpTableView1.SetColumnSortable(1,True) 'can sort by sender
OpTableView1.SetColumnSortable(2,False) 'cannot sort by message
OpTableView1.SetColumnWidth(0,60) 'fixes the time column width.
OpTableView1.SetColumnWidth(0,100) 'fixes the time column width.
Public Sub WriteMsg(msg As String,from As String)
Dim row(3) As Object
row(0) = DateTime.Time(DateTime.Now)
row(1) = from
row(2) = msg
'add the new items
OpTableView1.Items.Add(row)
'sort the time column to put the newest message at the top.
End Sub