VB DialogResult не работает

Question

Я хочу сделать это, когда пользователь нажимает кнопку ОК, выполняется код Вот как я попробовал.

Код foodItemslst.Items.Add(staffForm.TheStaff.ToString) НЕ выполнен.

 Private Sub AddStaffbtn_Click(sender As Object, e As EventArgs) Handles AddStaffbtn.Click 
      Dim staffForm As StaffForm = New StaffForm 
      If (staffForm.ShowDialog = System.Windows.Forms.DialogResult.OK) Then 
       foodItemslst.Items.Add(staffForm.TheStaff.ToString) 
        'the above code IS not executed. 
      End If 
     End Sub 

Однако этот код работает:

Private Sub AddStaffbtn_Click(sender As Object, e As EventArgs) Handles AddStaffbtn.Click 
     Dim staffForm As StaffForm = New StaffForm 
     If (staffForm.ShowDialog = System.Windows.Forms.DialogResult.OK) Then 
     End If 
     foodItemslst.Items.Add(staffForm.TheStaff.ToString) 
     'The above code is executed 
    End Sub 

Существует что-то не так с кодом:

If (staffForm.ShowDialog = System.Windows.Forms.DialogResult.OK) 

, но я не знаю, в чем проблема

OK кнопка помечена OK и имеет имя OKbtn.

Кто-нибудь знает, почему DialogResult не работает?

Update:

Код для кнопки OK,

Private Sub OKbtn_Click(sender As Object, e As EventArgs) Handles OKbtn.Click 
     ReadValues(m_staff) 
     Me.Close() 
    End Sub 

Answer 1

Просто установите DialogResult, вы не нужен Close() вызов, а также:

Если форма отображается как диалоговое окно, устанавливая это свойство с помощью значения из перечисления DialogResult задает значение диалогового окна результат поля для формы, скрывает модальное диалоговое окно и возвращает управление вызывающей форме.

Так просто сделать:

Me.DialogResult = DialogResult.Ok