Wenas a todos, nesecito crear 30 arrays de bytes, para empezar declararlo asi

Dim Arreglo1(25) as byte, Arreglo2(25) as byte, Arreglo3(25) as byte, ...... Arreglo30(25) as byte

mi pregunta es si existe alguna manera de crearlos dinamicamente y no tener que estar escribiendo ya que lo utilizare en varias ocasiones, probe con for next pero no tuve resultados, alguien que me de una ayuda gracias de antemano

Buenas tardes a toda la comunidad programadora, tengo un archivo abierto con acceso binario y al igual que la funcion instr que busca caracteres y devuelve la posicion, mi pregunta es si existe alguna funcion que permita buscar valores hexadecimales
por ejemplo: CD A9 (como lo hacen los editores hexadecimales) , Y que me devuelva la posicion donde se encontro, la idea es reemplazarlos por otros valores
he buscado y no encuentro algo para esta tarea, muchas gracias de antemano

Saludos muchachos estoy creando 2 textbox para hacer un dragdrop entre ellos e intercambien sus contenidos tengo este code

Private Sub Text1_DragDrop(Source As Control, X As Single, Y As Single)
    Dim Texto As String
    Texto = Text1.Text
    Text1.Text = Source.Text
    Source.Text = Texto
End Sub
 
Private Sub Text2_DragDrop(Source As Control, X As Single, Y As Single)
    Dim Texto As String
    Texto = Text2.Text
    Text2.Text = Source.Text
    Source.Text = Texto
End Sub
 

el problema viene que para que funcione tengo que poner para cada textbox la propiedad dragmode =1 lo cual hace que el texto no se a selecionable el evento click ya no tiene efecto, mi pregunta si existe alguna forma de dejar el texto selecionable para ser editado como cuando tiene el valor dragmode=0, gracias de antemano

holas buenas compañeros del foro, tengo una duda como haria para hacer una division pero que me genere numeros aleatorios , por ejemplo teniendo 1000 dividido entre 45 pero con un rango de 15 entre 25 , minimo y maximo respectivamente, gracias de antemano