Option Explicit

Private Sub cmdPhase_Click()
    Dim Phase, ResNum
    `Calculate phase
    Phase = CDbl(CVDate(txtDate.Text))
    Phase = Phase / 29.530589 + 0.9291176
    Phase = Phase - Int(Phase)
    `Calculate resource number
    ResNum = 2 + Int(Phase * 8 + 0.5)
    If ResNum = 10 Then ResNum = 2
    `Load bitmap and string
    imgMoon.Picture = LoadResPicture(ResNum, vbResIcon)
    lblString.Caption = LoadResString(ResNum)
End Sub

Private Sub Form_Load()
    txtDate.Text = Date$
    cmdPhase_Click
End Sub

Option Explicit

Private Sub cmdShow_Click()
    `Translate the test form into the
    `selected language
    If optLanguage(0) Then
        ShowLocal frm1, "English"
    ElseIf optLanguage(1) Then
        ShowLocal frm1, "French"
    Else
        ShowLocal frm1, "Italian"
    End If
End Sub
`Translate the strings on the form
Sub ShowLocal(frmLocal As Object, Language As String)
    Dim wrkDatabase As Workspace
    Dim dbStrings As Database
    Dim recStrings As Recordset
    Dim vntString As Variant
    Dim intCount As Integer
    Dim cntIndex As Control
    `Create workspace, open database, and get recordset
    Set wrkDatabase = CreateWorkspace("", "admin", "", dbUseJet)
    Set dbStrings = wrkDatabase.OpenDatabase("strings.mdb")
    Set recStrings = dbStrings.OpenRecordset("Strings")
    `Use names of controls as index in recordset
    recStrings.Index = "ControlName"
    `Internationalize each control name
    For Each cntIndex In frmLocal.Controls
        recStrings.Seek "=", cntIndex.Name
        Select Case TypeName(cntIndex)
            `Change Text property for text boxes
            Case "TextBox"
                cntIndex.Text = recStrings.Fields(Language)
            `Change captions on others
            Case "Label", "OptionButton", "CheckBox", "Frame", _
                "CommandButton"
                cntIndex.Caption = recStrings.Fields(Language)
            `Change List property for list boxes (record contains
            `an array)
            Case "ListBox", "ComboBox"
                vntString = MakeArray(recStrings.Fields(Language))
                For intCount = 0 To UBound(vntString)
                    cntIndex.AddItem vntString(intCount)
                Next intCount
            `Ignore pictures, timers, scrollbars, and so on
            Case Else
        End Select
    Next cntIndex
    `Internationalize form name
    recStrings.Seek "=", frmLocal.Name
    frmLocal.Caption = recStrings.Fields(Language)
    `Close recordset and database
    recStrings.Close
    dbStrings.Close
    `Show the form
    frmLocal.Show
End Sub

`Utility function to convert a semicolon-delineated list
`to an array
Function MakeArray(strSource As String) As Variant
    Dim vntTemp()
    Dim intCount As Integer, intPos As Integer
    Do
        ReDim Preserve vntTemp(intCount)
        intPos = InStr(strSource, ";")
        If intPos Then
            vntTemp(intCount) = Left(strSource, intPos - 1)
            strSource = Right(strSource, Len(strSource) - _
                (intPos + 1))
            intCount = intCount + 1
        Else
            vntTemp(intCount) = strSource
            Exit Do
        End If
    Loop
    MakeArray = vntTemp
End Function

#Const DebugBuild = 1

#If DebugBuild Then
    Private Sub Form_Load()
        `Display Edit button only on debug builds
        cmdEdit.Visible = True
    End Sub
    Private Sub cmdEdit_Click()
        `Display data entry form for the database
        frmStrings.Show
    End Sub
#End If