Public Class laborcancel
 
    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnOK.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
 
 
        frmlabor.Close()
 
 
    End Sub

Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnCancel.Click
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
        Me.Close()
 
    End Sub