Как автоматически отобразить значение для текстового поля в VB.NET

---

У меня есть 3 текстовых поля, а именно NQ, TPQ и ET. NQ позволяет пользователю ввести заданное количество вопросов (от 1 до 100), TPQ отображает время на каждый вопрос и его задают в виде 30 секунд, ET вычисляет и отображает общее время для заданного набора вопросов. TPQ не отображает время на вопрос в текстовом поле до тех пор, пока не будет указано значение, а затем отображает время в виде 30 секунд. пожалуйста, я хочу, чтобы это было сделано автоматически, как только пользователь укажет номер вопроса в текстовом поле NQ.

2. я хочу рассчитать общую сумму для указанного количества вопросов.

ниже приводится то, что я попробовал для первой части.

Что я уже пробовал:

Private Sub Course_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles Course.SelectedIndexChanged
        If Course.Text = "Microsoft" Then
            Type.SelectedItem = ("Windows Server")
            Category.SelectedItem = ("All Windows Server Exams")
        ElseIf Course.Text = "Cisco Associate" Then
            Type.SelectedItem = ("Cisco CCNA")
            Category.SelectedItem = ("All CCNA Exams")
        ElseIf Course.Text = "Cisco Professional" Then
            Type.SelectedItem = ("Cisco CCNP")
            Category.SelectedItem = ("All CCNP Exams")
        ElseIf Course.Text = "CompTIA Hardware" Then
            Type.SelectedItem = ("CompTIA A+")
            Category.SelectedItem = ("CompTIA A+")
        ElseIf Course.Text = "CompTIA Security" Then
            Type.SelectedItem = ("CompTIA Sec+")
            Category.SelectedItem = ("CompTIA Sec+")
        End If
    End Sub

    Private Sub NQ_TextChanged(sender As Object, e As EventArgs) Handles NQ.TextChanged
        If NQ.Text < 100 Or NQ.Text = 0 Then
        ElseIf NQ.Text > 100 Then
            MessageBox.Show("Maximum question is 100")
        ElseIf IsNumeric(NQ.Text) Then
        End If

    End Sub

    Private Sub TPQ_TextChanged(sender As Object, e As EventArgs) Handles TPQ.TextChanged
        Dim seconds As Double
        seconds = 30
        TPQ.Text = seconds & " seconds"
    End Sub

    Private Sub ET_TextChanged(sender As Object, e As EventArgs) Handles ET.TextChanged

    End Sub

---