Function TryAgainQuestionForExistItem(ItemName As String, ID As Object) As Boolean
Console.Clear()
Console.WriteLine()
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("{0} {1} already Exists, with same ID: ({2})!", vbTab, ItemName, ID)
Console.ForegroundColor = ConsoleColor.Yellow
Console.WriteLine("{0} Do you want to try again?", vbTab)
Console.ForegroundColor = ConsoleColor.White
Console.Write("{0} Type Y[es] to Accept: ", vbTab)
Console.ForegroundColor = ConsoleColor.Gray
Value = Console.ReadLine
'If Value.Length = 0 Then Return False
Select Case Value.Trim.ToLower
Case "y", "yes"
Console.Clear()
Return True
Case Else
Return False
End Select
End Function
For further actions, you may consider blocking this person and/or reporting abuse
Top comments (0)