Dim htsl As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox1") Dim htdj As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox2") Dim htze As WinForm.Label = e.Form.Controls("Label8") If htsl.Text <> "" AndAlso htdj.Text <> "" Then htze.Text = htdj.Text * htsl.Text End If