Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Private Sub Form_Activate()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Set the window position to topmost
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

Public Function VentanaActiva() As String
    Dim hWnd            As Long
    
    hWnd = GetActiveWindow
    If IsWindowVisible(hWnd) Then
        VentanaActiva = WindowTitle(hWnd)
        Exit Function
    End If
End Function

cad = "sopapeame la papirola"
temp = Split(cad, " ")            
MsgBox temp(2)

vuelve:
Randomize                           'nuero aleatorio
azar = Int(Rnd * 2) + 1         ' azar es o 1 o 2
If Dir("C:\" & azar & ".txt") <> "" Then 'comprueba si existe, si existe va a vuelve y si no existe se crear y coloca dentro su numero
    GoTo vuelve
Else
    Open "C:\" & azar & ".txt" For Append As #1
    Print #1, azar
    Close #1
End If

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Function a()
Dim hwnd As Long
Dim Rectangle As RECT

hwnd& = FindWindow("Shell_TrayWnd", "")

    GetClientRect hwnd&, Rectangle
    MsgBox "Ancho : " + Str$(Rectangle.Right - Rectangle.Left) + " Pixels." + Chr$(13) + "Alto : " + Str$(Rectangle.Bottom - Rectangle.Top) + " Pixels."

End Function

Msgbox Ubound(array)