Hi ,I want call in module a form and then return from form to module,but when I do it, the statements that are in my
module don't execute and the form runs immediately after execution.I want after returning to module the statements
go on execution,but it doesn't happen so.
Here is my code:
Imports System.Management
Imports System.Windows.Forms
Imports System.Runtime
Module module1
Sub main()
'Dim f As New Form1
'Application.Run(New Form1())
Console.WriteLine("ok")
End Sub
Private Declare Function ch341open Lib "ch341dll.dll" (ByVal iindex As Integer) As Integer
End Module
Public Class Form1
Dim WithEvents pluggedInWatcher As ManagementEventWatcher
Dim WithEvents pluggedOutWatcher As ManagementEventWatcher
Dim WithEvents button1 As Button
Dim pluggedInQuery As WqlEventQuery
Dim pluggedOutQuery As WqlEventQuery
Private Sub Form1_load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
pluggedInQuery = New WqlEventQuery
pluggedInQuery.QueryString = "SELECT * FROM Win32_VolumeChangeEvent WHERE EventType = 2"
pluggedInWatcher = New ManagementEventWatcher(pluggedInQuery)
pluggedInWatcher.Start()
pluggedOutQuery = New WqlEventQuery
pluggedOutQuery.QueryString = "SELECT * FROM Win32_VolumeChangeEvent WHERE EventType = 3"
pluggedOutWatcher = New ManagementEventWatcher(pluggedOutQuery)
pluggedOutWatcher.Start()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub pluggedInWatcher_EventArrived(sender As Object, e As EventArrivedEventArgs) Handles pluggedInWatcher.EventArrived
MessageBox.Show("Plugged In")
Application.Exit()
End Sub
Private Sub pluggedOutWatcher_EventArrived(sender As Object, e As EventArrivedEventArgs) Handles pluggedOutWatcher.EventArrived
MessageBox.Show("Plugged Out")
End Sub
End Class
Please guide me.
Thanks
