Private Sub radGerman_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
   Handles radGerman.Click
  Me.Text = "Ein haus"
  radEnglish.Text = "Englisch"
  radSpanish.Text = "Spanisch"
  radGerman.Text = "Deutsch"
  Me.ToolTip1.SetToolTip(Me.lblDoor, "Tür") 'ü=alt+0252
  Me.ToolTip1.SetToolTip(Me.lblWindow, "Fenster")
  Me.ToolTip1.SetToolTip(Me.lblTree, "Baum")
End Sub 'radGerman_Click