Public Class Form1
    Dim a As Integer, b As Integer, CPR As Integer, FRM As Integer, HOR As _
      Integer
    Dim Index As Integer
 
 
 
 
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label1.Click
 
    End Sub
 
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
 
    End Sub
 
    Private Sub GroupBox3_Enter(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles GroupBox3.Enter
        Select Case Index
            Case 0 : a = 1 And b = 0
            Case 1 : a = 0 And b = 1
            Case 3 : a = 0 And b = 0
        End Select
    End Sub
 
    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
 
    End Sub
 
    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
 
    End Sub
 
    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles GroupBox1.Enter
        Select Case Index
            Case 0 : CPR = 1
            Case 1 : CPR = 2
        End Select
    End Sub
 
    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
 
    End Sub
 
    Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles GroupBox2.Enter
        Select Case Index
            Case 0 : HOR = 1
            Case 1 : HOR = 2
            Case 2 : HOR = 3
            Case 3 : HOR = 4
        End Select
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        FRM = 124.443 - 18.76 * HOR - 49.8 * b - 30.666 * a - 10.968 * CPR
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
        Print("FRM")
    End Sub
 
    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e _
      As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles _
      LinkLabel1.LinkClicked
 
    End Sub
 
    Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged
 
    End Sub
End Class