lukke Internet explorer vindue

Private Const WM_CLOSE = &H10
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Form_Load()
Dim hWnd As Long
  hWnd = FindWindow("IEFrame", vbNullString)
  PostMessage hWnd, WM_CLOSE, 0&, 0&
End Sub

hej... kan du give en lille forklaring ?

og kan man lave det som en funktion der kan blive kaldt andet sted i koden ?

Option Explicit

' Windows API
Private Const WM_CLOSE = &H10
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

' Funktion til at lukke alle Internet Explorer vinduer.
' Køres fx. sådan:
'
' Private Sub Command1_Click()
'  Call CloseInternetExplorer
' End Sub
Public Sub CloseInternetExplorer()
Dim hWnd As Long
  Do
    ' Finder handling på Internet Explorer
    hWnd = FindWindow("IEFrame", vbNullString)
    If hWnd <> 0 Then
      ' Poster Lukke kommando til handling (hWnd)
      PostMessage hWnd, WM_CLOSE, 0&, 0&
    End If
  ' Køre en omgang mere for at se om der er flere
  ' Internet Explorer vinduer som skal lukkes.
  Loop While hWnd
End Sub

nice :-) er du sød at skrive et svar, så jeg kan give points ?

Ja.. du kan selv oprette et svar og gi mig 30 point og tag rasten (170) selv..