Programmet lukker ikke rigtigt (er stadig i hukommelsen)

Private Sub Form_Unload(Cancel As Integer)
    End
End Sub

Are there other windows (forms) which are hidden?

All windows must be closed. Also ensure that connections are getting close and set them to nothing

Denne kode alle forms de måtte være åbne:

Private Sub Form_Unload(Cancel As Integer)
    For i = Forms.Count - 1 To 1 Step -1
        Unload Forms(i)
    Next
End Sub

Har haft samme skod problem....

Dette skulle virke...bare husk at skrive dit program´s caption

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 Const WM_CLOSE = &H10
Dim lHwnd As Long
Dim lRetVal As Long

Public Function Luk(ByVal ProgramCaption As String) As Boolean
   
    lHwnd = FindWindow(vbNullString, ProgramCaption)
    If lHwnd <> 0 Then
        lRetVal = PostMessage(lHwnd, WM_CLOSE, 0&, 0&)
    End If

End Function

Det er især programmer som indholder winsock

Problemet har kostede mig en computerskærm *LOL*

En anden ting med hensyn til at lukke programmer

Har jeg læst et sted at Variabler overlevere en

end eller unload me

Hvis de skal dø helt skal man anvende

set form1 = nothing
unload form1