HYTOS

Public Class FindOpc

    'Dialog Caption : Set Stockpile Location of Partner OPC

    'Dialog Class : ThunderRT6FormDC

    Private Declare Auto Function FindWindow Lib "user32.dll" (

ByVal lpClassName As String,

ByVal lpWindowName As String

) As IntPtr

    Private Declare Auto Function FindWindowEx Lib "user32.dll" (

ByVal hwndParent As IntPtr,

ByVal hwndChildAfter As IntPtr,

ByVal lpszClass As String,

ByVal lpszWindow As String

) As IntPtr

    Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long,

ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

    Private Declare Auto Function SendMessage Lib "user32.dll" (

hWnd As IntPtr, uMsg As Int32, WParam As IntPtr, LParam As IntPtr

) As IntPtr

    Private Const WM_CLOSE As Long = &H10

    Private Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long

    Public Sub RemoveOPCDlg()

        Try

            Dim iHandle As Integer = FindWindow("ThunderRT6FormDC", "Set Stockpile Location of Partner OPC")

            If iHandle > 0 Then

                System.Threading.Thread.Sleep(100)

                SendMessage(iHandle, WM_CLOSE, 0, 0) 'Press Ctrl Key

                System.Threading.Thread.Sleep(100)

                iHandle = 0

            End If

        Catch ex As Exception

        End Try

    End Sub

End Class