Private Sub Sprich(Sprache As String)
  Dim f As Form
  Dim c As Control
  Dim s As Integer
 
  Select Case Sprache
    Case "deutsch"
      s = 100
    Case "englisch"
      s = 200
  End Select
 
  For Each f In Forms
    'Form1.Caption Damit ändert sich die Beschreibung der Form
    If f.Tag <> "" Then _
          f.Caption = LoadResString(CInt(f.Tag) + s)
 
 
    For Each c In f.Controls
      'Control.Caption (hier: Commandbuttons u. Label)
      If c.Tag <> "" Then _
            c.Caption = LoadResString(CInt(c.Tag) + s)
    Next c
 
  Next f
 
End Sub
 
Private Sub Option1_Click(Index As Integer)
  Select Case Index
    Case 0
      Sprich "deutsch"
 
    Case 1
      Sprich "englisch"
 
  End Select
 
End Sub