What happens here is when I click on anyone of the radio buttons the text box score sets the value to either 0,1,2,3,4 but when I go the next
case it goes back to 0 instead of keeping the value. I tried many different techniques while going about this none seem to work.

Private Sub btnNextQuestion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNextQuestion.Click
Static questionCount As Integer
Select Case questionCount
Case 0
'Question 1
radAlways.Visible = True
radUsually.Visible = True
radSometimes.Visible = True
radSeldom.Visible = True
radNever.Visible = True
lblQuestion.Text = "I can easily recognize practical needs" + vbCrLf + "and I am quick to meet them"
lblQuestion.Font = New System.Drawing.Font("Seguoe UI", 10)
lblQuestionsLeft.Text = "1 / 175"
Case 1
'Question 2
radAlways.Checked = False
radUsually.Checked = False
radSometimes.Checked = False
radSeldom.Checked = False
radNever.Checked = False
lblQuestion.Text = "I give to support and bless others or to" + vbCrLf + "advance an effective cause or vision"
lblQuestionsLeft.Text = "2 / 175"
Private Sub radAlways_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radAlways.CheckedChanged
Static score As Integer
txtScore.Text = score + 4
End Sub
Private Sub radUsually_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radUsually.CheckedChanged
Static score As Integer
txtScore.Text = score + 3
End Sub
Private Sub radSometimes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radSometimes.CheckedChanged
Static Score As Integer
txtScore.Text = Score + 2
End Sub
Private Sub radSeldom_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radSeldom.CheckedChanged
Static score As Integer
txtScore.Text = score + 1
End Sub
Private Sub radNever_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radNever.CheckedChanged
Static score As Integer
txtScore.Text = score + 0
End Sub