
 .

1.      ,  \localized

       bat-:

   copy *.vbp localized\*.*
   copy *.fr* localized\*.*
   copy *.bas localized\*.*
   copy *.ctl localized\*.*
   copy *.res localized\*.*

    :

   copy *.* localized\*.*

      __Localizator.exe  .

2.   [Autorun current dir]
           
           
    LoadResString(ID),      Caption
    ToolTipText    Form_Load  : 

	Label1.Tag = 1232
        Command1.ToolTipText = 1236
        ...
         ..

3.       [Generate resource]
     __Localizator.rc,     .

   :-)
           ID
    Form_Load

  :

Sub loadResStrings(frm As Form)
  On Error Resume Next

  Dim ctl As Control
  Dim sCtlType As String
  Dim nVal As Long

  If Val(frm.Tag) > 0 Then frm.Caption = LoadResString(CLng(frm.Tag))
  For Each ctl In frm.Controls
    sCtlType = TypeName(ctl)
    Select Case sCtlType
      Case "Label":
        ctl.Caption = LoadResString(CLng(ctl.Tag))
      Case "Menu":
        ctl.Caption = LoadResString(CLng(ctl.Caption))
      Case "TabStrip":
        Dim i As Integer
        For i = 1 To ctl.Tabs.Count
          ctl.Tabs(i).Caption = LoadResString(CLng(ctl.Tabs(i).Tag))
        Next i
      Case Else:
        nVal = 0
        nVal = Val(ctl.Tag)
        If nVal > 0 Then ctl.Caption = LoadResString(nVal)
        nVal = 0
        nVal = Val(ctl.ToolTipText)
        If nVal > 0 Then ctl.ToolTipText = LoadResString(nVal)
    End Select
  Next

End Sub
  