Sub Spinner1_ItemClick (Position As Int, Value As Object)
calc
End Sub
Sub calc
Select Spinner1.SelectedItem
Case "M5"
moment = (4.6*lubfaktor*gradefaktor)
EditText1.Text=NumberFormat(moment,0,1)
Case "M6"
moment = (7.8*lubfaktor*gradefaktor)
EditText1.Text=NumberFormat(moment,0,1)
End Select
End Sub