Example - Declare Statement

Declare Function GetFocus Lib "User" () As Integer
Declare Function GetWindowText Lib "User" (ByVal hWnd%, ByVal Mess$, ByVal cbMax%) As Integer
Sub Main
    Dim hWindow%
    Dim str1 As String *51
    Dim str2 As String * 25
    hWindow% = GetFocus()
    print "GetWindowText returned: ", GetWindowText( hWindow%, str1,51 )
    print "GetWindowText2 returned: ", GetWindowText( hWindow%, str2, 25)
    print str1
    print str2
End Sub