He echado un vistazo un poco por encima al exe y sacar aunque sea el formulario no es sencillo. Esto es porque he usado varios programas (por ejemplo ILspy) y de ellos se obtiene un archivo .resources.
Este archivo resources, según recuerdo, es una especie de archivo compilado de los recursos .resx que están en XML, así que si tienes Visual Basic instalado puedes, desde la línea de comandos hacer lo siguiente (la ruta es posible que no sea exactamente igual):
Código
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.
Y ahí obtendrás el archivo, archivo.resx. Si analizas el mismo, desde un editor cualquiera, verás que no aparecen la posición ni el tamaño tanto del formulario como de otros controles. He intentado importarlo en un nuevo proyecto C#, pero arroja muchos errores, tantos como recursos hay...
Me gustaría analizarlo más pero no tengo tiempo... posiblemente algún .NET resourcer más potente como NET Reflector... a ver si alguno/a puede analizarlo...
Respecto al código fuente, hay que reconocer que por ejemplo ILSpy te resuelve gran parte del mismo:
Código
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