Select Case computerChoice
Case 1
picROCK2.Visible = True
If rdoROCK.Checked = True Then
lbltie.Visible = True
ElseIf rdoPAPER.Checked = True Then
lblwin.Visible = True
ElseIf rdoSCISSORS.Checked = True Then
lbllose.Visible = True
End If
Case 2
picPAPER2.Visible = True
If rdoROCK.Checked = True Then
lbllose.Visible = True
ElseIf rdoPAPER.Checked = True Then
lbltie.Visible = True
ElseIf rdoSCISSORS.Checked = True Then
lblwin.Visible = True
End If
Case 3
picSCISSORS2.Visible = True
If rdoROCK.Checked = True Then
lblwin.Visible = True
ElseIf rdoPAPER.Checked = True Then
lbllose.Visible = True
ElseIf rdoSCISSORS.Checked = True Then
lbltie.Visible = True
End If
End Select