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