Generate Random Number 既 Function

Generate Random Number 既 Function

   Private Function RandomNumberGenerate(ByVal Maximum_Num As Integer) As Integer
      Dim RandomClass As New Random()
      Return RandomClass.Next(Maximum_Num) + 1
   End Function