Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Apr 11th, 2011  |  syntax: VB.NET  |  size: 0.92 KB  |  views: 54  |  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. Select Case computerChoice
  2.     Case 1
  3.         picROCK2.Visible = True
  4.         If rdoROCK.Checked = True Then
  5.             lbltie.Visible = True
  6.         ElseIf rdoPAPER.Checked = True Then
  7.             lblwin.Visible = True
  8.         ElseIf rdoSCISSORS.Checked = True Then
  9.             lbllose.Visible = True
  10.         End If
  11.     Case 2
  12.         picPAPER2.Visible = True
  13.         If rdoROCK.Checked = True Then
  14.             lbllose.Visible = True
  15.         ElseIf rdoPAPER.Checked = True Then
  16.             lbltie.Visible = True
  17.         ElseIf rdoSCISSORS.Checked = True Then
  18.             lblwin.Visible = True
  19.         End If
  20.     Case 3
  21.         picSCISSORS2.Visible = True
  22.         If rdoROCK.Checked = True Then
  23.             lblwin.Visible = True
  24.         ElseIf rdoPAPER.Checked = True Then
  25.             lbllose.Visible = True
  26.         ElseIf rdoSCISSORS.Checked = True Then
  27.             lbltie.Visible = True
  28.         End If
  29. End Select
clone this paste RAW Paste Data