Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim Hur As New Hurkian_C
 
        ATK.Text = Hur.AngriffH
    End Sub
End Class

Public Class Hurkian_C
 
    Public Const Hurikan_A = "150"
    Const Hurikan_D = "250"
    Const Hurikan_P_E = "137"
    Const Hurikan_G = "Klein"
    Dim Angriff As Long
 
 
    Public Function AngriffH() As Long
        Dim Formt As New Form1
 
        AngriffH = Hurikan_A * Formt.Hurikan.Text
 
 
        Return AngriffH
 
 
    End Function
 
 
End Class