despues de todo el webeo lo ise en VB 6.0 lo importe
con .net 2008 para ver como lo asia y importo componentes de VB 6.0
a un lisbox y lo consulta, nada buena calidad pero funciona
codigo
Código HTML:
Option Strict Off
Option Explicit On
Imports VB = Microsoft.VisualBasic
Friend Class Form1
Inherits System.Windows.Forms.Form
'UPGRADE_WARNING: El evento Combo1.SelectedIndexChanged se puede desencadenar cuando se inicializa el formulario. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"'
Private Sub Combo1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo1.SelectedIndexChanged
Text1.Text = CStr(VB6.GetItemData(Combo1, Combo1.SelectedIndex))
End Sub
Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
Dim i As Object
For i = 0 To 10
'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto i. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Combo1.Items.Add(New VB6.ListBoxItem(CStr(VB.Day(Today)), CInt(i)))
Next i
End Sub
End Class
eso chauuuu