VB que detecte el idioma del Windows

[Lupin]

estoy haciendo un pequeño programita y quisiera que el visual me detecte si el windws esta en ingles yo uso este codigo.Es para distribuirlo a unos amigos
Lo que pasa es que quiero que mis labels se vean en ingles o castelllano deacuerdo al idioma del windows

Este codigo no me parece muy optimo pero es la unica idea

Private Function winIngles() As Boolean
    buf = String$(260, Chr$(0))
    ret = GetWindowsDirectory(buf, Len(buf))
    ruta = Left$(buf, ret)
    K = Left(ruta, InStr(ruta, "WINDOWS") - 1)
   
    If Len(K + "Archivos de programa") <> 0 Then
   
    winIngles = True
    Else
    winIngles = False
   
   
    End If
  End Function


Private Sub Form_Load()

MsgBox Str(winIngles)

End Sub

si alguien pudiera orientarme  seria chevere jeje

[seba123neo]

Hola, es una chapuza importante  , no mira usa la api GetLocaleInfo..con eso podes obtener todo lo que sea configuracion regional de la pc...

saludos.

[Lupin]

Che seba123neo eres grande tio
¿Hay algo de Vb que no sepas ...jeje algun dia caeras?

Rumbo al sowtware internacional...

[luison]

Claro, moriría por saber lo que seba123neo desconoce, pero por lo pronto, me conformaría con igualarme a sus conocimientos  .

Hazle caso, con tal API podes resolver tu duda.