Visual Basic 6 - Solo per esperti ,... difficile

Ciao a tutti , adesso vi dico una cosa seria , molto difficile da svolgere , e se qualcuno riusirebbe ad aiutarmi giuro che vado da lui e gli do un bacio Apparte di scherzo :
Io o una cosa simile a ciò in un modulo:

End
Exit Function
End If
FDSFISM ASDGFFHH, HSDHGAFG
GFHJSAGDAG = ASDHAKJD(SRHGFSHJSHTS, False, HSDHGAFG)
If (GFHJSAGDAG = 0) Then
Exit Function
End If
DFBFDSDF GFHJSAGDAG, SHSDFHSREH, SRTHSGFDHGH, 4, 0&
AGFHAH SJSYTRKTKE
End Function

Public Function AGDSDFHSD(AERHGSDHZHG As String, SHSDFHSREH As Long, SFHSGFDHSTRHGF As Long) 'ReadALong
Dim ASDGFFHH As Long
Dim HSDHGAFG As Long
Dim GFHJSAGDAG As Long
ASDGFFHH = GDASGDFH(vbNullString, AERHGSDHZHG)
If (ASDGFFHH = 0) Then
End
Exit Function
End If
FDSFISM ASDGFFHH, HSDHGAFG
GFHJSAGDAG = ASDHAKJD(SRHGFSHJSHTS, False, HSDHGAFG)
If (GFHJSAGDAG = 0) Then
Exit Function
End If
GAGSDBSB GFHJSAGDAG, SHSDFHSREH, SFHSGFDHSTRHGF, 4, 0&
AGFHAH SJSYTRKTKE
End Function

Public Function AGADGFFDGDF(AERHGSDHZHG As String, SHSDFHSREH As Long, SFHSGFDHSTRHGF As Single) 'ReadAFloat
Dim ASDGFFHH As Long
Dim HSDHGAFG As Long
Dim GFHJSAGDAG As Long
ASDGFFHH = GDASGDFH(vbNullString, AERHGSDHZHG)
If (ASDGFFHH = 0) Then
End
Exit Function
End If
FDSFISM ASDGFFHH, HSDHGAFG
GFHJSAGDAG = ASDHAKJD(SRHGFSHJSHTS, False, HSDHGAFG)
If (GFHJSAGDAG = 0) Then
Exit Function
End If
GAGSDBSB GFHJSAGDAG, SHSDFHSREH, SFHSGFDHSTRHGF, 4, 0&
AGFHAH SJSYTRKTKE
End Function

Public Function NFGDNDF(AERHGSDHZHG As String, SHSDFHSREH As Long, SRTHSGFDHGH As Single) 'WriteAFloat
Dim ASDGFFHH As Long
Dim HSDHGAFG As Long
Dim GFHJSAGDAG As Long
ASDGFFHH = GDASGDFH(vbNullString, AERHGSDHZHG)
If (ASDGFFHH = 0) Then
End
Exit Function
End If
FDSFISM ASDGFFHH, HSDHGAFG
GFHJSAGDAG = ASDHAKJD(SRHGFSHJSHTS, False, HSDHGAFG)
If (GFHJSAGDAG = 0) Then
Exit Function
End If
DFBFDSDF GFHJSAGDAG, SHSDFHSREH, SRTHSGFDHGH, 4, 0&
AGFHAH SJSYTRKTKE
End Function

Public Function ARGFDHSTAG(AERHGSDHZHG As String, SHSDFHSREH As Long, SRTHSGFDHGH As Byte) 'WriteAByte
Dim ASDGFFHH As Long
Dim HSDHGAFG As Long
Dim GFHJSAGDAG As Long
ASDGFFHH = GDASGDFH(vbNullString, AERHGSDHZHG)
If (ASDGFFHH = 0) Then
End
Exit Function
End If
FDSFISM ASDGFFHH, HSDHGAFG
GFHJSAGDAG = ASDHAKJD(SRHGFSHJSHTS, False, HSDHGAFG)
If (GFHJSAGDAG = 0) Then
Exit Function
End If
DFBFDSDF GFHJSAGDAG, SHSDFHSREH, SRTHSGFDHGH, 1, 0&
AGFHAH SJSYTRKTKE
End Function

Public Function AREHDHSRTH(AERHGSDHZHG As String, SHSDFHSREH As Long, SFHSGFDHSTRHGF As Byte) 'ReadAByte
Dim ASDGFFHH As Long
Dim HSDHGAFG As Long
Dim GFHJSAGDAG As Long
ASDGFFHH = GDASGDFH(vbNullString, AERHGSDHZHG)
If (ASDGFFHH = 0) Then
End
Exit Function
End If
FDSFISM ASDGFFHH, HSDHGAFG
GFHJSAGDAG = ASDHAKJD(SRHGFSHJSHTS, False, HSDHGAFG)
If (GFHJSAGDAG = 0) Then
Exit Function
End If
GAGSDBSB GFHJSAGDAG, SHSDFHSREH, SFHSGFDHSTRHGF, 1, 0&
AGFHAH SJSYTRKTKE
End Function
'Creato da DeDo

E in un timer tipo questo :

call AREHDHSRTH ("wr" &Haddress &Hoffset)

In questo caso AREHDHSRTH sarebbe il valore di readabyte nel modulo , io vorrei fare in modo che ogni volta che si clicca un bottone tutti questi valori (sia nel modulo che nel timer ) si rinnovano con nuovi valori (inserendo una variabile di codici casuali)
naturalmente oltre il valore di readabyte anche tutti gli altri : writealong writeabyte ecc

Oddio ce lo fatta xD
LO SO CHE LO SPIEGATO VERAMENTE DI MER** MA E MOLTO DIFFICILE DA SPIEGARE ... SPERO ABBIATE CAPITO

Cosa?

Lo sapevo ...

allora lo spiego in poce parole , se non capite non va niente
Allora io o dei valori in un modulo , e qui valori si ripetono in dei timer , io vorrei fare in modo che , impostando delle variabili casuali, e possibile , cliccando un bottone , cambiare questi valori autoamaticamente.

vuoi generare stringhe casuali???

NoNo , vorrei fare in modo che cliccando un pulsante (questo nell exe ) si cambiano i valori del timer e del modulo.

è illegibile!

Vuoi cambiare il codice sorgente da programma?

Ovviamente non puoi ...

apparte ke nn si è capito niente...
A cosa ti serve?