Make your own free website on Tripod.com

AllApi.net

[an error occurred while processing this directive]
 
Private Declare Sub FillMemory Lib "kernel32.dll" Alias "RtlFillMemory" (Destination As Any, ByVal Length As Long, ByVal Fill As Byte)
Private Declare Sub ZeroMemory Lib "kernel32.dll" Alias "RtlZeroMemory" (Destination As Any, ByVal Length As Long)
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim TestString As String
    'Mak sure Visual Basic repaint the form automatically
    Me.AutoRedraw = True
    'Create a buffer string
    TestString = String(25, "X")
    Me.Print "This is our initial string: " + TestString
    'Fill the buffer-string with A's
    FillMemory ByVal TestString, Len(TestString), Asc("A")
    Me.Print "This is our string after FillMemory: " + TestString
    'Empty the string
    ZeroMemory ByVal TestString, Len(TestString)
    Me.Print "This is our string after ZeroMemory: " + TestString
End Sub


 
Copyright © 1998-2000, The KPD-Team.
Send mail to KPDTeam@Allapi.net with comments about this web site.
This site is located at
http://www.Allapi.net/