Public Sub Main()
Dim m_UtilVentanas As cWindows
Dim col As Collection
Dim numItems As Long
Dim i As Long
Dim sTitulo As String
Set m_UtilVentanas = New cWindows
Set col = New Collection
Set col = m_UtilVentanas.EnumTopWindows
numItems = col.Count
For i = 1 To numItems Step 2
sTitulo = col.Item(i)
Call m_UtilVentanas.CloseApp(sTitulo, "CabinetWClass")
Next
Set col = Nothing
Set m_UtilVentanas = Nothing
End
End Sub
Hola, yo pongo este codigo, supuestamente sirve para cerrar ventanas o algo similar, pero me da error, dice que "cWindows" no está declarado. ¿Alguien sabe que estoy haciendo mal? (No quiero poner el Link donde lo saque para no ahcer Spam!)