Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As _
          System.EventArgs) Handles btnOK.Click
            DialogResult = DialogResult.OK
        End Sub

       Dim f As New frmDialog
 
       Dim dr As DialogResult = f.ShowDialog()
       If dr = DialogResult.OK Then
           ' was immer...
       End If