В vb5 создать запускающий файл (скомпилировать)

Формулировка задачи:

Как в vb5 создать запускающий файл (скомпилировать), чтобы все работало без установленной программы vb5 ? Имеется БД, к которой обращается программа.

Решение задачи: «В vb5 создать запускающий файл (скомпилировать)»

textual
                            Листинг программы 
                        
 
                            
                        
Private Sub Form_Activate()
  Label3 = Date
  dtPrv.Recordset.FindFirst "Format(Da_te, ""ddmm"")= " & Format(Date, "ddmm")
  Label2 = dtPrv.Recordset!Te_xt
  Label7 = dtPrv.Recordset!Phone
 Dim a As String
 Dim b As String
 Dim c As String
 Dim d As String
 Dim e As String
 Dim f As String
 Dim n
n = Date + 10000
With Me.dtPrv.Recordset
Do Until .EOF
  If !Da_te > Date Then
    If n > !Da_te Then
      n = !Da_te
    End If
  End If
  .MoveNext
Loop
End With
If Label2 = "Г*ГҐГІ Г*ГЁ Гі ГЄГ®ГЈГ®" Then
   Label1 = "Г‘ГҐГЈГ®Г¤Г*Гї Г„Г*Гї ГђГ®Г¦Г¤ГҐГ*ГЁГї"
End If
b = Format(CDate(n), "dd mmmm")
d = CStr(CDate(b) - Date)
c = "Г®Г±ГІГ*Г«Г®Г±Гј"
f = "Г‘Г«ГҐГ¤ГіГѕГ№ГЁГ© Г„ГҐГ*Гј ГђГ®Г¦Г¤ГҐГ*ГЁГї"
Select Case d
 Case 1, 21, 31
  e = "Г¤ГҐГ*Гј"
  c = "Г®Г±ГІГ*Г«Г±Гї"
 Case 2, 3, 4, 22, 23, 24
  e = "Г¤Г*Гї"
 Case 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 25, 26, 27, 28, 29, 30
  e = "Г¤Г*ГҐГ©"
  c = "Г®Г±ГІГ*Г«Г®Г±Гј"
End Select
dtPrv.Recordset.FindFirst "format(Da_te,""ddmm"")=" & Format(b, "ddmm")
a = dtPrv.Recordset!Te_xt
 
Label13 = f & "  " & a & "  " & b & "  " & c & "  " & d & "  " & e
End Sub
 
Private Sub Label5_Click()
End
End Sub