Microsoft Windows [Version 6.1.7601]
Copyright (c) 2009 Microsoft Corporation. Reservados todos los derechos.
 
...
 
C:\Program Files\Microsoft SDKs\Windows\v7.0A\bin>resgen.exe /compile archivo.resources,archivo.resx
Leer en 911 recursos de "archivo.resources"
Escribiendo el archivo de recursos...  Listo.

Private Sub RESULTADOS()
	Me.GroupBox8.set_Visible(True)
	Me.DateTimePicker5.set_Visible(True)
	Me.ListBox9.get_Items().Clear()
	Dim dateTimePicker As DateTimePicker = Me.DateTimePicker5
	Dim text As String = dateTimePicker.ToString()
	Me.fec1 = Strings.Mid(text, 44, 11)
	Me.fec1 = Strings.Trim(Me.fec1)
	Me.VFE1 = "  "
	Me.VFE2 = "  "
	Me.VFE3 = "    "
	Dim text2 As String = Me.fec1
	Me.VFE1 = Strings.Mid(text2, 1, 2)
	Me.VFE2 = Strings.Mid(text2, 4, 2)
	Me.VFE3 = Strings.Mid(text2, 7, 4)
	Me.vfecha = DateType.FromString(String.Concat(New String() { Me.VFE1, "/", Me.VFE2, "/", Me.VFE3 }))
	Me.ListBox9.set_Visible(True)
	Me.Button12.set_Visible(True)
	Me.Button13.set_Visible(True)
	Dim oleDbConnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=BD2.mdb")
	Dim text3 As String = "select serial,caja,jugada,premio,pagado from premios where fecha=@vfecha order by cod"
	Dim oleDbCommand As OleDbCommand = New OleDbCommand(text3, oleDbConnection)
	oleDbCommand.set_CommandType(1)
	oleDbCommand.get_Parameters().Add("@vfecha", Me.vfecha)
	oleDbConnection.Open()
	Dim oleDbDataReader As OleDbDataReader = oleDbCommand.ExecuteReader()
	Me.ListBox9.get_Items().Add("CAJA NUMERO:   TODAS                                  ")
	Me.ListBox9.get_Items().Add("DESDE:                                                ")
	Me.ListBox9.get_Items().Add("HASTA:                                                ")
	Me.ListBox9.get_Items().Add("Serial           Cj Jugada           Premio  P  ")
	Me.ListBox9.get_Items().Add("======================================================")
	While oleDbDataReader.Read()
		Dim text4 As String = oleDbDataReader.get_Item(0).ToString()
		Dim text5 As String = oleDbDataReader.get_Item(1).ToString()
		Dim text6 As String = oleDbDataReader.get_Item(2).ToString()
		Dim text7 As String = oleDbDataReader.get_Item(3).ToString()
		Dim text8 As String = oleDbDataReader.get_Item(4).ToString()
		If Conversion.Val(text7) > 0.0 Then
			Me.ListBox9.get_Items().Add(String.Concat(New String() { text4, "  ", text5, " ", text6, "  ", vbTab, "  ", text7, "  ", text8 }))
		End If
	End While
	oleDbConnection.Close()
	oleDbDataReader.Close()
End Sub