5.Private Declare Function GetCompressedFileSizeA Lib "kernel32" (ByVal lpFileName As String, lpFileSizeHigh As Long) As Long6.Private Sub Form_Load()7.Dim Size As String, myfile As String8.myfile = "C:\Users\Pink\Desktop\1.exe"9.Size = CStr(GetCompressedFileSizeA(myfile, ByVal 0&))10.MsgBox (Size)11.End Sub