Option Explicit

Dim MsgboxText As String

Private Sub Form_Load()
  Sprich "deutsch"
  Picture1.Picture = LoadResPicture(301, vbResIcon)
  Me.Icon = Picture1.Picture
End Sub

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
    If f.Tag <> "" Then _
          f.Caption = LoadResString(CInt(f.Tag) + s)
    For Each c In f.Controls
      If c.Tag <> "" Then _
            c.Caption = LoadResString(CInt(c.Tag) + s)
    Next c
  Next f

  MsgboxText = LoadResString(8 + s)
End Sub

Private Sub Option1_Click(Index As Integer)
  Select Case Index
    Case 0
      Sprich "deutsch"
      Picture1.Picture = LoadResPicture(301, vbResIcon)
    Case 1
      Sprich "englisch"
      Picture1.Picture = LoadResPicture(302, vbResIcon)
  End Select
  Me.Icon = Picture1.Picture
End Sub

Private Sub Picture1_Click()
  MsgBox MsgboxText, vbInformation, "Copyright © VB-fun.de"
End Sub