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