Answered You can buy a ready-made answer or pick a professional tutor to order an original one.
- ANSWER
-
Tutor has posted answer for $30.00. See answer's preview
********************* **** in ********* Visual Basic 60 ** ****** ******** ******* ***** this ***** **** ******* ***** it on *** form *** ********* ***** on *** ******* ********* ********* ******* ** *** **** toolbar ** ****** Basic ** *** **** ** ** an *********** ******** on the ************** on *** form align to rectangular ***** giving your **** * symmetric ******** ****** *** ************ *** ease of ******** *** ************ ** Windows **************** ********** a bit we've ******* a ******* Form ****** ********* ****** ****** ******* ** *** **** ** **** *** these ******** ******* to ***** ****** ** **** ** *** **** **** **** **** ** ************ ** *** ***** ******* *** ***** some **** ** that ********* event ********* List1_Click() ******** ************* ***** is called **** **** *** **** button ** ******* **** ***** ***** **** ******* **** *** ***** *** changed **** ****** is ****** **** *** ** represents *** **** ******** **** *** ******** ********** ***** to ************** *** ************* ************* * ** JokeLineCount = ************** * ************* ************** = *************** * List1ListIndex ************* * ********** * " ***** ********* ************ ***************** End ****** ******************** MethodThe ******************** ****** is ****** upon to **** jokes from * ******** to * string arrayPrivate Sub ******************** ** = ********** DoneFile = True ** *************** = **************** * Rnd) *** ** = ** ************ ** **************** * DoneFiles(ii)) Then ******** * **** End ** If **************** ******** ************** **** DoneFile * ***** *** If **** ** Loop Until ********* * ****** DoneFileCount * ************* * 1 ************************ * CurrentJokeFile ************** * "File : * & CurrentJokeFile ***** * * ********* " ***** ************ - ************* ** ************* * ************* < 1) **** ********** ********** End ** ************ *** ****** ************* EventThe ************* ***** is ****** **** when *** left ****** ** pressed **** ***** ***** this ******* Once *** index has ******* **** ****** ** ****** upon *** ** ********** the user changing **** one **** ** joke to ************** Sub ************* ************* = ************** ***************** ************* * ******** **** * * & ************* & " ** * " ***** ********************************* ************** * ***** * " ***** ************* & * Unread: _ * ***** ********************************* * ************* ************* * ********** * * & ********* * *********** *** ****** ******************* ********* DisplayRandomJoke() ****** ** ****** **** ** ******* *** line of **** **** a string array ** * ************ *** ******************* ********** * Timer ************* * *************************** ********* = **************** + ******************* * *************** ************* * ********** * " ***** TimeDelay ************** = ********* Timer2Interval = ********* End ****** **** ** how **** ** is ** ****** *** ************ in ******* *****