Sample of automatically generated control initialization code for one form from Visdata.vbp eliminates the need for the old-fashioned way of remembering to initialize control properties.

Private Sub frmMDI_Auto_Init()
'This routine initializes all User Interface control properties on this form.
'This section of code was automatically generated by the ResMe String Extraction Utility.
    frmMDI.Caption = LoadResString(S632_VisData)
    tlbToolBar.Buttons(1).ToolTipText = LoadResString(S591_Table_type_Recordse)
    tlbToolBar.Buttons(2).ToolTipText = LoadResString(S317_Dynaset_type_Record)
    tlbToolBar.Buttons(3).ToolTipText = LoadResString(S576_Snapshot_type_Recor)
    tlbToolBar.Buttons(4).ToolTipText = LoadResString(S501_Passthrough_type_Re)
    tlbToolBar.Buttons(6).ToolTipText = LoadResString(S617_Use_Data_Control_on)
    tlbToolBar.Buttons(7).ToolTipText = LoadResString(S313_Don_t_Use_Data_Cont)
    tlbToolBar.Buttons(8).ToolTipText = LoadResString(S616_Use_DBGrid_Control_)
    tlbToolBar.Buttons(10).ToolTipText = LoadResString(S221_Begin_a_Transaction)
    tlbToolBar.Buttons(11).ToolTipText = LoadResString(S550_Rollback_current_Tr)
    tlbToolBar.Buttons(12).ToolTipText = LoadResString(S249_Commit_current_Tran)
    stsStatusBar.Panels(1).Text = LoadResString(S532_Ready)
    mnuDatabase.Caption = LoadResString(S106_File)
    mnuDBOpen.Caption = LoadResString(S128_Open_DataBase)
    mnuDBOMDB.Caption = LoadResString(S118_Microsoft_Access)
    mnuDBOdBASE.Caption = LoadResString(S93_Dbase)
    mnuDBOdBASE4.Caption = LoadResString(S403_I_V)
    mnuDBOdBASE3.Caption = LoadResString(S112_III)
    mnuDBOFoxPro.Caption = LoadResString(S108_FoxPro)
    mnuDBOParadox.Caption = LoadResString(S133_Paradox)
    mnuDBOParadox4.Caption = LoadResString(S72_4_X)
    mnuDBOParadox3.Caption = LoadResString(S71_3_X)
    mnuDBOBtrieve.Caption = LoadResString(S83_Btrieve)
    mnuDBOExcel.Caption = LoadResString(S100_Excel)
    mnuDBOText.Caption = LoadResString(S158_Text_Files)
    mnuDBOODBC.Caption = LoadResString(S124_ODBC)
    mnuDBNew.Caption = LoadResString(S123_New)
    mnuDBNMDB.Caption = LoadResString(S117_Microsoft_Access)
    mnuDBNMDB2x.Caption = LoadResString(S629_Version_2_0_MDB)
    mnuDBNMDB70.Caption = LoadResString(S630_Version_7_0_MDB)
    mnuDBNdBASE.Caption = LoadResString(S93_Dbase)
    mnuDBNdBASE4.Caption = LoadResString(S403_I_V)
    mnuDBNdBASE3.Caption = LoadResString(S112_III)
    mnuDBNFoxPro.Caption = LoadResString(S108_FoxPro)
    mnuDBNParadox.Caption = LoadResString(S133_Paradox)
    mnuDBNParadox4.Caption = LoadResString(S72_4_X)
    mnuDBNParadox3.Caption = LoadResString(S71_3_X)
    mnuDBNBtrieve.Caption = LoadResString(S83_Btrieve)
    mnuDBNODBC.Caption = LoadResString(S124_ODBC)
    mnuDBNText.Caption = LoadResString(S158_Text_Files)
    mnuDBClose.Caption = LoadResString(S89_Close)
    mnuDBImpExp.Caption = LoadResString(S114_Import_Export)
    mnuDBWorkspace.Caption = LoadResString(S168_Workspace)
    mnuDBErrors.Caption = LoadResString(S99_Errors)
    mnuDBCompact.Caption = LoadResString(S244_Co_mpact_MDB)
    mnuDBC70MDB.Caption = LoadResString(S73_7_0_MDB)
    mnuDBC20MDB.Caption = LoadResString(S70_2_0_MDB)
    mnuDBRepair.Caption = LoadResString(S145_Repair_MDB)
    mnuDBExit.Caption = LoadResString(S320_E_xit)
    mnuUtil.Caption = LoadResString(S163_Utility)
    mnuUQuery.Caption = LoadResString(S137_Query_Builder)
    mnuUDataFormDesigner.Caption = LoadResString(S273_Data_Form_Designer)
    mnuUReplace.Caption = LoadResString(S109_Global_Replace)
    mnuUAttachments.Caption = LoadResString(S82_Attachments)
    mnuUGroupsUsers.Caption = LoadResString(S110_Groups_Users)
    mnuUSystemDB.Caption = LoadResString(S148_SYSTEM_MD)
    mnuPref.Caption = LoadResString(S135_Preferences)
    mnuPOpenOnStartup.Caption = LoadResString(S129_Open_Last_DataBase_)
    mnuPAllowSys.Caption = LoadResString(S115_Include_System_Tabl)
    mnuPQueryTimeout.Caption = LoadResString(S138_Query_Timeout_Value)
    mnuPLoginTimeout.Caption = LoadResString(S116_Login_Timeout_Value)
    mnuWindow.Caption = LoadResString(S167_Window)
    mnuWTile.Caption = LoadResString(S159_Tile)
    mnuWCascade.Caption = LoadResString(S87_Cascade)
    mnuWArrange.Caption = LoadResString(S79_Arrange_Icons)
    mnuHelp.Caption = LoadResString(S111_Help)
    mnuHTopics.Caption = LoadResString(S160_Topics)
    mnuHAbout.Caption = LoadResString(S74_About)
    mnuDBPUOpen.Caption = LoadResString(S127_Open)
    mnuDBPUDesign.Caption = LoadResString(S95_Design)
    mnuDBPUEdit.Caption = LoadResString(S96_Edit)
    mnuDBPURename.Caption = LoadResString(S144_Rename)
    mnuDBPUDelete.Caption = LoadResString(S296_De_lete)
    mnuDBPUCopyStruct.Caption = LoadResString(S261_Copy_Structure)
    mnuDBPURemoveAll.Caption = LoadResString(S539_Remove_All_Records)
    mnuDBPURefresh.Caption = LoadResString(S537_Refresh_List)
    mnuDBPUNewTable.Caption = LoadResString(S444_New_Table)
    mnuDBPUNewQuery.Caption = LoadResString(S443_New_Query)
End Sub