18 lines
430 B
VB.net
18 lines
430 B
VB.net
Imports System
|
|
Public Class Issue3659
|
|
Public Shared Sub Func(ByRef obj As Issue3659, value As Object)
|
|
End Sub
|
|
|
|
Public Shared Function ShowMessage(a As String, b As Integer, c As String, d As Object, e As Integer) As Integer
|
|
Return 0
|
|
End Function
|
|
|
|
Friend Sub VBFunction(value As Object)
|
|
On Error GoTo Handler
|
|
Func(Me, value)
|
|
Exit Sub
|
|
Handler:
|
|
ShowMessage("VBFunction", 0, "Exception", Nothing, 0)
|
|
End Sub
|
|
End Class
|