Public Sub Add_Item( _
ByVal Moderator As String, _
ByVal User As String, _
ByVal Type As String, _
ByVal Points As String, _
ByVal Reason As String)
Dim Count As Integer = 0
ListView1.Items.Add(Moderator)
ListView1.Items(Count).SubItems.Add(User)
ListView1.Items(Count).SubItems.Add(Type)
ListView1.Items(Count).SubItems.Add(Points)
ListView1.Items(Count).SubItems.Add(Reason)
Count += 1
End Sub