Pastebin launched a little side project called VERYVIRAL.com, check it out ;-) Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Apr 11th, 2011  |  syntax: VB.NET  |  size: 0.75 KB  |  views: 50  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. If computerChoice = 1 Then
  2.             picROCK2.Visible = True
  3.             If rdoROCK.Checked = True Then
  4.                 lbltie.Visible = True
  5.             ElseIf rdoPAPER.Checked = True Then
  6.                 lblwin.Visible = True
  7.             ElseIf rdoSCISSORS.Checked = True Then
  8.                 lbllose.Visible = True
  9.             End If
  10.         End If
  11.  
  12. into
  13.  
  14. Select Case
  15.         Case 1
  16.         computerchoice = 1
  17.             picROCK2.Visible = True
  18.             Case rdoROCK.Checked = True Then
  19.                 lbltie.Visible = True
  20.             Case Else rdoPAPER.Checked = True Then
  21.                 lblwin.Visible = True
  22.             Case Else rdoSCISSORS.Checked = True Then
  23.                 lbllose.Visible = True
  24.             End Case
  25.         End Case