Private Sub radSpanish_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
     Handles radSpanish.Click
   Me.Text = "Una casa"
   radEnglish.Text = "inglés"   'é= ALT+0233
   radSpanish.Text = "español"  'ñ= ALT+0241
   radGerman.Text = "alemán"    'á= ALT+0225
   Me.ToolTip1.SetToolTip(Me.lblDoor, "puerta")
   Me.ToolTip1.SetToolTip(Me.lblWindow, "ventana")
   Me.ToolTip1.SetToolTip(Me.lblTree, "arbol")
End Sub 'radSpanish_Click

Private Sub radEnglish_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
     Handles radEnglish.Click
   Me.Text = "A house"
   radEnglish.Text = "English"
   radSpanish.Text = "Spanish"
   radGerman.Text = "German"
   Me.ToolTip1.SetToolTip(Me.lblDoor, "Door")
   Me.ToolTip1.SetToolTip(Me.lblWindow, "Window")
   Me.ToolTip1.SetToolTip(Me.lblTree, "Tree")
End Sub 'radEnglish_Click