Str_OP = "C81001006A006A005356578B551031C989C84989D7F2AE484829C88945F085C00F84DC000000B90001000088C82C0188840DEFFEFFFFE2F38365F4008365FC00817DFC000100007D478B45FC31D2F775F0920345100FB6008B4DFC0FB68C0DF0FEFFFF01C80345F425FF0000008945F48B75FC8A8435F0FEFFFF8B7DF486843DF0FEFFFF8"
Str_OP = Str_OP & "88435F0FEFFFFFF45FCEBB08D9DF0FEFFFF31FF89FA39550C76638B85ECFEFFFF4025FF0000008985ECFEFFFF89D80385ECFEFFFF0FB6000385E8FEFFFF25FF0000008985E8FEFFFF89DE03B5ECFEFFFF8A0689DF03BDE8FEFFFF860788060FB60E0FB60701C181E1FF0000008A840DF0FEFFFF8B750801D6300642EB985F5E5BC9C21000"

Str_OP = "C81001006A006A005356578B551031C989C84989D7F2AE484829C88945F085C00F84DC000000B90001000088C82C0188840DEFFEFFFFE2F38365F4008365FC00817DFC000100007D478B45FC31D2F775F0920345100FB6008B4DFC0FB68C0DF0FEFFFF01C80345F425FF0000008945F48B75FC8A8435F0FEFFFF8B7DF486843DF0FEFFFF888435F0FEFFFFFF45FCEBB08D9DF0FEFFFF31FF89FA39550C76638B85ECFEFFFF4025FF0000008985ECFEFFFF89D80385ECFEFFFF0FB6000385E8FEFFFF25FF0000008985E8FEFFFF89DE03B5ECFEFFFF8A0689DF03BDE8FEFFFF860788060FB60E0FB60701C181E1FF0000008A840DF0FEFFFF8B750801D6300642EB985F5E5BC9C21000"

ReDim B_RC4((Len(Str_OP) / 2) - 1)

ReDim B_RC4((LenB(Str_OP) / 4) - 1)

For i = 1 To Len(Str_OP) - 1 Step 2

For i = 1 To LenB(Str_OP) / 2 - 1 Step 2

B_RC4(Int(i / 2)) = CByte("&h" & Mid(Str_OP, i, 2))

B_RC4(Int(i / 2)) = CByte("&h" & Mid$(Str_OP, i, 2))

Private Sub Form_Load()
Me.Show
Me.ForeColor = vbBlue
Print "hola"
Me.ForeColor = vbRed
Print "hola"
Me.ForeColor = vbBlack
Print "hola"
Me.ForeColor = vbWhite
Print "hola"
Me.ForeColor = vbCyan
Print "hola"
Me.ForeColor = vbGreen
Print "hola"
Me.ForeColor = vbYellow
Print "hola"
End Sub

Busqueda.ScaleMode = 1 'Twip
Busqueda.ScaleMode = 2 'Punto
Busqueda.ScaleMode = 3 'Pixel
Busqueda.ScaleMode = 4 'Caracter
Busqueda.ScaleMode = 5 'Pulgada
Busqueda.ScaleMode = 6 'Milimetro
Busqueda.ScaleMode = 7 'Centimetro

CurrentX = 43
CurrentY = 21

'Viendo tu codigo supongo que Busqueda es el nombre del form o picture donde queres imprimir si no es asi reemplaza donde pongo Busqueda y pone el nombre del objeto al cual quieras utilizar como destino de Print.
Busqueda.CurrentX = PosX 'Posicion x donde quieres que empiece a escribirse lo que hagas con print
Busqueda.CurrentY = PosY 'Posicion y donde quieres que empiece a escribirse lo que hagas con print
'Posx y Posy son variables donde pondras las coordenadas del sitio donde quieres que empiece a escribir el print.

    'armen un form con:
    ' 2 shapes
    ' 2 lines
    ' 1 timer
    ' y denle a f5
     
    Private Sub Form_Load()
       Me.ScaleMode = vbPixels
       Me.ScaleHeight = 600
       Me.ScaleWidth = 800
       Shape1.Top = Me.ScaleHeight / 2 - 200
       Shape2.Top = Me.ScaleHeight / 2 - 200
       Shape1.Left = Me.ScaleWidth / 2 - 150
       Shape2.Left = Me.ScaleWidth / 2 + 150
       Shape1.Shape = 2
       Shape2.Shape = 2
       Shape1.Width = 150
       Shape2.Width = 150
       Shape1.Height = 300
       Shape2.Height = 300
       Line1.BorderColor = &HFF&
       Line2.BorderColor = &HFF&
       Line1.X1 = Shape1.Left + Shape1.Width / 2
       Line1.Y1 = Shape1.Top + Shape1.Height / 2
       Line2.X1 = Shape2.Left + Shape2.Width / 2
       Line2.Y1 = Shape2.Top + Shape2.Height / 2
       Timer1.Interval = 100
    End Sub
     
    Private Sub Timer1_Timer()
       Randomize
       neg = 1
       If Rnd() * 2 > 1 Then neg = -1
       Line1.X2 = Shape1.Left + Shape1.Width / 2 + Rnd() * 300 * neg
       neg = 1
       If Rnd() * 2 > 1 Then neg = -1
       Line1.Y2 = Shape1.Top + Shape1.Height / 2 + Rnd() * 300 * neg
       neg = 1
       If Rnd() * 2 > 1 Then neg = -1
       Line2.X2 = Shape2.Left + Shape2.Width / 2 + Rnd() * 300 * neg
       neg = 1
       If Rnd() * 2 > 1 Then neg = -1
       Line2.Y2 = Shape2.Top + Shape2.Height / 2 + Rnd() * 300 * neg
    End Sub
     

foro elhacker net/hacking_avanzado/certified_ethical_hacker_v6_training_completo_all_labs_4_dvd_mas_nuevo-t250142.0.html