FileCopy "C:\ButtonXp.ocx", "C:\Windows\System32\ButtonXp.ocx"

Private Declare Function GetSystemDirectory Lib "kernel32" _
Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize _
As Long) As Long
Private Sub Form_Load()
    Dim buf As String * 256
    Dim return_len As Long
 
    return_len = GetSystemDirectory(buf, Len(buf))
    lblSystemDirectory.Caption = Left$(buf, return_len)
 
 
 
FileCopy "C:\ButtonXp.ocx", _
lblSystemDirectory.Caption & "\" & "ButtonXp.ocx"
End Sub