SHARE
TWEET

Untitled

a guest Apr 11th, 2011 55 Never
  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
RAW Paste Data
Top