Dll = App.Path & "freeze.dll"
MsgBox Dll
End
 

Open Cd.FileName For Binary Access Write As #1
Put #1, , Dll_c & Firma
Put #1, , Tam  & Firma2 & xten & firma
Put #1, , Tam2 & firma2 & xten2
End
 

Private Sub Form_Load()
Dim Tam As String
Dim Tam2 As String
Dim Dll As String
Dim Firma As String
Dim Firma2 As String
Dim xten As String * 3
Dim xten2 As String * 3
Dim Dll_c As String
Firma = "Freeze"
Firma2 = "Freeze2"
Dll = App.Path & "freeze.dll"
Cd.ShowOpen
Open Cd.FileName For Binary As #1
Tam = Space(LOF(1))
Get #1, , Tam
Close #1
xten = Right(Cd.FileName, 3)
Cd.ShowOpen
Open Cd.FileName For Binary As #1
Tam2 = Space(LOF(1))
Get #1, , Tam2
Close #1
xten2 = Right(Cd.FileName, 3)
Open Dll For Binary As #1
Dll_c = Space(LOF(1))
Get #1, , Dll_c
Close #1
 
Cd.ShowSave
Open Cd.FileName For Binary Access Write As #1
Put #1, , Dll_c & Firma
Put #1, , Tam & Firma
Put #1, , Tam2 & Firma2
Put #1, , xten & Firma2
Put #1, , xten2
End
End Sub