If computerChoice = 1 Then
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
End If
into
Select Case
Case 1
computerchoice = 1
picROCK2.Visible = True
Case rdoROCK.Checked = True Then
lbltie.Visible = True
Case Else rdoPAPER.Checked = True Then
lblwin.Visible = True
Case Else rdoSCISSORS.Checked = True Then
lbllose.Visible = True
End Case
End Case