Public Class Keimenergie
 
    Dim a As Decimal
    Dim b As Decimal
    Dim c As Decimal
 
 
    Private Sub Keimenergie_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        a = System.Convert.ToInt32(probe.Text)
        b = System.Convert.ToInt32(ngk.Text)
        c = (a - b) \ 5
        TextBox1.Text = c
    End Sub
End Class