' Declarada la libreria que contiene la función externa que usaremos. Library "libc:6" 'Experimenta con este código para aprender la razón de los errores 'Library "libc:5" 'Library "libc" 'Declara la función externa. 'Devuelve una cadena que describe el significado del número de señal. Private Extern strsignal(senal As Integer) As String Public Sub Form_Open() Dim a As Integer Dim informe As String Me.Title = "Uso de función externa" For a = 0 To 40 Print "Número de señal=" & a & " --->" & strsignal(a) informe &= "Número de señal=" & a & " --->" & strsignal(a) & gb.NewLine Wait 0.2 Next TextArea1.Text = informe TextArea1.Pos = 0 End ' postapase@postapase / $ locate libc.so ' /lib/i386-linux-gnu/libc.so.6 <------ Library "libc:6" ' /usr/lib/i386-linux-gnu/libc.so ' Public Sub URLLabel1_Click() Desktop.Open(URLLabel1.Link) End