Type TInputTag ( _
index As Int , _
typ As Int , _
Minimum As Float , _
Maximum As Float )
'vk = Anzahl Stellen vor dem Komma
'nk = Anzahl Stellen nach dem Komma
'vz = Vorzeichen
Sub InputNumber(vk As Int,nk As Int,vz As Boolean,Tittle As String,default As Float,properties As TInputTag)
If vz Then whlNumber.Initialize(Me, Activity, Tittle, vk+nk, Null, 100, 7, True) Else _
whlNumber.Initialize(Me, Activity, Tittle, vk+nk, Null, 100, 8, True)
whlNumber.SetFixedFormat(nk,True,False)
whlNumber.Tag = properties
whlNumber.Show2("InputNumber",default)
End Sub