Sub GenerateID As String
Dim id As StringBuilder
id.Initialize
Dim chars As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
For i = 0 To 15
Dim index As Int = Rnd(0, chars.Length)
id.Append(chars.CharAt(index))
Next
Return id.ToString
End Sub