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

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

Rumbo al sowtware internacional...