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