% 'Declare Variables '******************************************************* Dim myImage Function GetRandomNumber(LowerBound,UpperBound) Randomize() GetRandomNumber = Int((upperbound-lowerbound+1) * Rnd + lowerbound) End Function myImage = GetRandomNumber (1,16) %>
|
||