Just a fun thing to do

by Weasel (1 Submission)
Category: Games
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Fri 17^th December 1999
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Just a fun thing to do



Randomize
MyValue = Int((6 * Rnd) + 1)
If MyValue = 1 Then
         Lblanswer = "Not today"
ElseIf MyValue = 2 Then
         Lblanswer = "Definatly"
ElseIf MyValue = 3 Then
         Lblanswer = "Not today"
ElseIf MyValue = 4 Then
         Lblanswer = "Yes"
ElseIf MyValue = 5 Then
         Lblanswer = "No"
ElseIf MyValue = 6 Then
         Lblanswer = "My sorces say maybe"
End If

MyValue = Lblanswer
End Sub

Download this snippet Add to My Saved Code

Just a fun thing to do Comments

No comments have been posted about Just a fun thing to do. Why not be the first to post a comment about Just a fun thing to do.

Just a fun thing to do

Just a fun thing to do Comments

Post your comment

Difficulty