26/11/2004, 15:01
|
 | | | Fecha de Ingreso: agosto-2004 Ubicación: Mexico
Mensajes: 47
Antigüedad: 19 años, 8 meses Puntos: 0 | |
| Private Sub Text1_Change()
Dim a As String
Call DrawBarcode(Text1, Picture1)
MinWidth = 2 * Text1.Left + Text1.Width
pw = 2 * Picture1.Left + Picture1.Width
fw = MinWidth
If pw > fw Then fw = pw
Form1.Width = fw
a = Text1.Text
CInt(Mid($a,i,1))
End Sub
No se si esta bien escrita la sintaxis |