Hola a todos como estan, se me presento un problemita, les cuento, estuve creando una clase con algunos procedimientos y funciones, pero creando un procedimiento (segun yo estaba todo bien), este es el codigo.
Public Sub pb_close_window(ByVal _name_window As Form)
Dim e As System.Windows.Forms.KeyPressEventArgs
If e.KeyChar = Chr(Keys.Escape) Then
Dim li_rpta As Integer
li_rpta = MsgBox("¿Desea cerrar la ventana activa?", MsgBoxStyle.YesNo, "Mensaje")
If li_rpta = MsgBoxResult.Yes Then _name_window.Close()
End If
End Sub
Luego me fui a una ventana y en el evento KeyPress, escribi este codigo
Dim my As New Soultaker 'Este es el nombre de la clase
Private Sub Form2_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles MyBase.KeyPress, Button1.KeyPress
my.pb_close_window(Me)
End Sub
Pero al momento de ejecutarlo me muestra el siguiente error
