Help with custom dialog

[AMDRIT]

'System.Runtime .InteropService s.SEHException' occurred in
system.windows. forms.dll is generated when I use "My Custom Dialog". Any
ideas what I could be doing wrong?

Basically, I wanted to create a dialog like Messagebox. I created a class
with a public shared function that returns a dialogresult. I then created a
form with an event and two buttons.

TIA
Public Class policyStatusCha nge

Inherits System.Windows. Forms.Form

Event Result(ByVal e As System.Windows. Forms.DialogRes ult)

Private Sub btnOk_Click(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles btnOk.Click

RaiseEvent Result(DialogRe sult.OK)

Close()

End Sub

Private Sub btnCancel_Click (ByVal sender As Object, ByVal e As
System.EventArg s) Handles btnCancel.Click

RaiseEvent Result(DialogRe sult.Cancel)

Close()

End Sub

End Class

Public Class CustomDialog

Private Shared iRet As System.Windows. Forms.DialogRes ult

Public Shared Function Show(ByVal dr As
QuickCommercial Web.DataDiction ary.Application sRow, ByVal PendingChange As
String, ByVal CurrentValue As String) As System.Windows. Forms.DialogRes ult

Dim frmPSC As policyStatusCha nge

Dim Results As System.Windows. Forms.DialogRes ult

iRet = DialogResult.Ca ncel

frmPSC = New policyStatusCha nge(dr, PendingChange, CurrentValue)

AddHandler frmPSC.Result, AddressOf form_result

frmPSC.ShowDial og()

Select Case iRet

Case DialogResult.OK

MsgBox("user said ok.")

Case DialogResult.Ca ncel

MsgBox("user said cancel.")

End Select

RemoveHandler frmPSC.Result, AddressOf form_result

'frmPSC.Dispose ()

End Function

Private Shared Sub form_result(ByV al e As System.Windows. Forms.DialogRes ult)

iRet = e

End Sub

End Class

[AMDRIT]

this seems to be occuring as a result of showDialog. when I change it to
show, no exception is thrown.

more over, I am not able to catch this exception, and it halts the
application.
"AMDRIT" <am****@hotmail .com> wrote in message
news:%2******** ********@tk2msf tngp13.phx.gbl. ..

'System.Runtime .InteropService s.SEHException' occurred in
system.windows. forms.dll is generated when I use "My Custom Dialog". Any
ideas what I could be doing wrong?

Basically, I wanted to create a dialog like Messagebox. I created a class
with a public shared function that returns a dialogresult. I then created
a form with an event and two buttons.

TIA
Public Class policyStatusCha nge

Inherits System.Windows. Forms.Form

Event Result(ByVal e As System.Windows. Forms.DialogRes ult)

Private Sub btnOk_Click(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles btnOk.Click

RaiseEvent Result(DialogRe sult.OK)

Close()

End Sub

Private Sub btnCancel_Click (ByVal sender As Object, ByVal e As
System.EventArg s) Handles btnCancel.Click

RaiseEvent Result(DialogRe sult.Cancel)

Close()

End Sub

End Class

Public Class CustomDialog

Private Shared iRet As System.Windows. Forms.DialogRes ult

Public Shared Function Show(ByVal dr As
QuickCommercial Web.DataDiction ary.Application sRow, ByVal PendingChange As
String, ByVal CurrentValue As String) As System.Windows. Forms.DialogRes ult

Dim frmPSC As policyStatusCha nge

Dim Results As System.Windows. Forms.DialogRes ult

iRet = DialogResult.Ca ncel

frmPSC = New policyStatusCha nge(dr, PendingChange, CurrentValue)

AddHandler frmPSC.Result, AddressOf form_result

frmPSC.ShowDial og()

Select Case iRet

Case DialogResult.OK

MsgBox("user said ok.")

Case DialogResult.Ca ncel

MsgBox("user said cancel.")

End Select

RemoveHandler frmPSC.Result, AddressOf form_result

'frmPSC.Dispose ()

End Function

Private Shared Sub form_result(ByV al e As
System.Windows. Forms.DialogRes ult)

iRet = e

End Sub

End Class