Basic object structure for Support System

gistfile1.vb

Public Class Thread

  Public Posts as List(of Post)
  
  Property Subject as String
  Property Status as int
  Property Product as String
  Property Priority as int
  Property CallType as int
  Property AssignedToUser as User
  Property AccountManager as User
  Property OpenDateTime as DateTime

  Public Sub GetThread(ID as int)
    
    Return Me
  End Sub
  
  Public Sub NewThread()
    Dim Created as Boolean = True
    
    Return Created
  End Sub
  
  Public Sub DeleteThread()
    Dim Created as Boolean = True
    
    Return Created
  End Sub

  Public Sub UpdateThread()
    
  End Sub

  Public Sub AddPost(post as Post)
    If post.Validate() Then
      Posts.Add(post)
    End If
  End Sub

End Class

Class Post

  Property PostingUser as User
  
  Propery ExternalText as string
  Property InternalText as string

  Public Function GetPost(threadID as int)
  
    Return Me
  End Function
  
  Public Function AddPost(threadID as int)
  
      Return Me
  End Function
  
  Public Function DeletePost(threadID as int, postID as int)
  
    Return Me
  End Function

  Private Function _validate() as Boolean
    
    Return False
  End Function
  
End class

Public Class User

  ID as int
  Name as string
  AccessLevel as int
  Company as Company

End Class

Public Class Company

  ID as int
  Name as string

End Class