'Allgemiene Deklarationen
Option Explicit On
Option Strict Off
 
Public Class frm_Main
 
    Private Sub frm_Main_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Select Case My.Settings.str_Sprache
 
            Case "DE"
                cbo_Sprache.Text = "Germany"
 
            Case "GB"
                cbo_Sprache.Text = "England"
 
            Case "FR"
                cbo_Sprache.Text = "French"
 
            Case "IT"
                cbo_Sprache.Text = "Italy"
 
            Case "ES"
                cbo_Sprache.Text = "Spain"
 
        End Select
 
    End Sub
 
    Private Sub cbo_Sprache_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles cbo_Sprache.SelectedIndexChanged
 
        Select Case cbo_Sprache.Text
 
            Case "Germany"
                My.Settings.str_Sprache = "DE"
                Me.Text = "Mehrsprachige Software"
                lbl_User.Text = "Benutzer:"
                lbl_Password.Text = "Passwort:"
                pic_Flagge.Image = Image.FromFile( _
                  My.Application.Info.DirectoryPath & "\Flaggen\" & _
                  My.Settings.str_Sprache & ".gif")
 
            Case "England"
                My.Settings.str_Sprache = "GB"
                Me.Text = "Mulitlingual Software"
                lbl_User.Text = "User:"
                lbl_Password.Text = "Password:"
                pic_Flagge.Image = Image.FromFile( _
                  My.Application.Info.DirectoryPath & "\Flaggen\" & _
                  My.Settings.str_Sprache & ".gif")
 
            Case "French"
                My.Settings.str_Sprache = "FR"
                Me.Text = "Multilingue Software"
                lbl_User.Text = "usager:"
                lbl_Password.Text = "mot de passe:"
                pic_Flagge.Image = Image.FromFile( _
                  My.Application.Info.DirectoryPath & "\Flaggen\" & _
                  My.Settings.str_Sprache & ".gif")
 
            Case "Italy"
                My.Settings.str_Sprache = "IT"
                Me.Text = "Progetto software multilingue"
                lbl_User.Text = "utenza:"
                lbl_Password.Text = "parola d'ordine:"
                pic_Flagge.Image = Image.FromFile( _
                  My.Application.Info.DirectoryPath & "\Flaggen\" & _
                  My.Settings.str_Sprache & ".gif")
 
            Case "Spain"
                My.Settings.str_Sprache = "ES"
                Me.Text = "Software multilingua"
                lbl_User.Text = "usario:"
                lbl_Password.Text = "contraseña:"
                pic_Flagge.Image = Image.FromFile( _
                  My.Application.Info.DirectoryPath & "\Flaggen\" & _
                  My.Settings.str_Sprache & ".gif")
 
        End Select
 
        My.Settings.Save()
 
    End Sub
 
    Private Sub pic_Flagge_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles pic_Flagge.Click
 
        Select Case cbo_Sprache.Text
 
            Case "Germany"
                System.Diagnostics.Process.Start( _
                  "http://www.flags.de/flagge-deutschland.html")
 
            Case "England"
                System.Diagnostics.Process.Start( _
                  "http://www.flags.de/flagge-grossbritannien.html")
 
            Case "French"
                System.Diagnostics.Process.Start( _
                  "http://www.flags.de/flagge-frankreich.html")
 
            Case "Italy"
                System.Diagnostics.Process.Start( _
                  "http://www.flags.de/flagge-italien.html")
 
            Case "Spain"
                System.Diagnostics.Process.Start( _
                  "http://www.flags.de/flagge-spanien.html")
 
        End Select
 
    End Sub
 
    Private Sub cmd_End_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmd_End.Click
 
        If MsgBox("Wollen Sie dieses Programm wirklich beenden?", vbQuestion Or _
          vbYesNo, "Programm beenden?") = vbYes Then
            ' Ja
            End
        Else
            ' Nein
        End If
 
    End Sub
 
 
 
End Class

Viele Grüße
Ingo Schick