responder una pregunta en .NET se puede responder con codigo en C# o VB, total es practicamente lo mismo y convertirlo de uno a otro es mas que facil.

saludos.

hiba a preguntar lo mismo, como sabes que es la grafica, te recomiendo que lo mires con el programa Everest (ahora Aida64) para ver las temperaturas que te dice que tiene, capas que es otra cosa la que se calienta, con ese programa podes ver que es lo que esta hirviendo en calor.

PD: despues cai que era linux  , no se si esta el aida para ese sistema, abria que ver alguno que haga lo mismo, me imagino debe haber.

para que se genere un agujero negro la estrella que muere debe tener masa mucho mas grande que la del sol, nuestro sol no generara un agujero negro cuando se acabe su vida, pero si fuera el doble de masivo si lo haria cuando explote como supernova.

en el centro de nuestra galaxia hay un agujero negro supermasvio de millones de veces la masa del sol.

los agueros negros son simplemente regiones del espacio donde la materia se a agrupado de tal forma, y tanta cantidad de masa, que genera una gravedad tan grande que ni siquiera los fotones de luz pueden escapar.

me acuerdo el tema de los agujeros negros, en un libro de fisica de primer año que mi padre logro traer, ya que el trabaja en un lugar que podia pedir los libros de la escuela gratis (lo unico que me acuerdo que la editorial era de puerto de palos), planteaba un problema que me da risa...preguntaba cuantas personas hace falta poner dentro de un auto para que este se transforme en un agujero negro  si cada persona pesaba unos 70kg . la cantidad era enorme mas de la que hay en la tierra hoy en dia.

podes hacer un bucle For, algo asi:

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call CrearTabModelo()
    End Sub
 
    Private Sub CrearTabModelo()
        Dim NewTab As New TabPage
        NewTab.Name = "Tab" & TabControl1.TabCount
        NewTab.Text = "Tab " & TabControl1.TabCount
 
        Me.TabControl1.Controls.Add(NewTab)
 
        For i As Integer = 1 To 10
            Dim NewButton As New Button
            NewButton.Name = "Button" & i
            NewButton.Text = "Boton " & i
            NewButton.Location = New Point(10, 25 * i)
            NewTab.Controls.Add(NewButton)
 
            AddHandler NewButton.Click, AddressOf ClickBotones
        Next
    End Sub
 
    Private Sub ClickBotones(ByVal sender As Object, ByVal e As EventArgs)
        Dim whichButton As Button
        Dim whichTabPage As Control
 
        If TypeOf sender Is Button Then
 
            whichButton = CType(sender, Button)
            whichTabPage = whichButton.Parent
 
            MessageBox.Show("Apretaste el " & whichButton.Name & " de la pestaña " & whichTabPage.Name)
        End If
    End Sub
End Class

el tema es que usando Contains estas buscando en la palabra entera, y puede fallar facilmente si tengo esto por ejemplo, un archivo que se llame asi:

hola.mp3.mp4

si pregunto si es "mp3", me va a decir que SI simplemente porque la palabra contiene la palabra "mp3", pero en realidad es extension "mp4".

para traer realmente la extension real se usa esto:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox(IO.Path.GetExtension("miarchivomp3.mp4"))
    End Sub
End Class
 

saludos.

eso debe ser la codificacion en la que estas guardando el archivo de texto, lo deberias guardar con UTF-8, pone el codigo de como guardas el txt

saludos.

borren esto.

los modulos comunes no soportan Overload, aparte fijate que te la subraya y te dice , tenes que hacerlo dentro de una clase.

saludos.

bueno crear el TabPage es facil y meterle controles adentro tambien, aca un ejemplo simple que tambein maneja los eventos de cada control en cada tab.

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call CrearTab()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TabControl1.TabPages.Remove(TabControl1.SelectedTab)
    End Sub
 
    Private Sub CrearTab()
        Dim NewTab As New TabPage
        NewTab.Name = "Tab" & TabControl1.TabCount
        NewTab.Text = "Tab " & TabControl1.TabCount
 
        Me.TabControl1.Controls.Add(NewTab)
 
        Dim NewButton As New Button
        NewButton.Name = "Button1"
        NewButton.Top = 10
        NewButton.Text = "Boton 1"
        NewTab.Controls.Add(NewButton)
 
        AddHandler NewButton.Click, AddressOf ClickBotones
 
        Dim NewButton2 As New Button
        NewButton2.Name = "Button2"
        NewButton2.Top = 100
        NewButton2.Text = "Boton 2"
        NewTab.Controls.Add(NewButton2)
 
        AddHandler NewButton2.Click, AddressOf ClickBotones
    End Sub
 
    Private Sub ClickBotones(ByVal sender As Object, ByVal e As EventArgs)
        Dim whichButton As Button
        Dim whichTabPage As Control
 
        If TypeOf sender Is Button Then
 
            whichButton = CType(sender, Button)
            whichTabPage = whichButton.Parent
 
            MessageBox.Show("Apretaste el " & whichButton.Name & " de la pestaña " & whichTabPage.Name)
        End If
    End Sub
End Class

el primer boton añade un tab con 2 botones adentro y el otro elimina la tab seleccionada.

tambien se manejan los eventos click de cada boton y se sabe de que tab vino el click.

es un simple ejemplo, lo tenes que optimizar.

saludos.

los labels son controles llamados "windowless" no son ventanas, solo se pintan, y si tratas de enumerarlos con alguna api tampoco lo hace ya que no tienen Hwnd.

pero me acuerdo que hace mucho habia publicado algo donde se podian ver, no me aucerdo, si lo encuentro lo pongo.

PD: aca esta:

Handle de un Label

saludos.