Problem with VB6

Code of the timers
Private Sub Check1_Click()
Call WriteAByte(&H4FB1D5, &H90)
Call WriteAByte(&H4FB1D6, &H90)
Call WriteAByte(&H4FB1D7, &H90)
Call WriteAByte(&H4FB1D8, &H90)
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command10_Click()
Timer2.Enabled = False
End Sub

Private Sub Command11_Click()
Timer3.Enabled = False
End Sub

Private Sub Command12_Click()
Timer4.Enabled = False
End Sub

Private Sub Command13_Click()
Timer5.Enabled = False
End Sub

Private Sub Command14_Click()
Timer6.Enabled = False
End Sub

Private Sub Command15_Click()
Timer7.Enabled = False
End Sub

Private Sub Command16_Click()
Timer8.Enabled = False
End Sub

Private Sub Command2_Click()
Timer2.Enabled = True
End Sub

Private Sub Command3_Click()
Timer3.Enabled = True
End Sub

Private Sub Command4_Click()
Timer4.Enabled = True
End Sub

Private Sub Command5_Click()
Timer5.Enabled = True
End Sub

Private Sub Command6_Click()
Timer6.Enabled = True
End Sub

Private Sub Command7_Click()
Timer7.Enabled = True
End Sub

Private Sub Command8_Click()
Timer8.Enabled = True
End Sub

Private Sub Command9_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
Call E2BE9DB7(&HAFB790, 1)
End Sub

Private Sub Timer2_Timer()
Call E2BE9DB7(&HAFB778, 1092779973)
End Sub

Private Sub Timer3_Timer()
Call E2BE9DB7(&HAFB774, 1092779973)
End Sub

Private Sub Timer4_Timer()
Call E2BE9DB7(&HAFB780, 1092779973)
End Sub

Private Sub Timer5_Timer()
Call E2BE9DB7(&HAFB77C, 1092779973)
End Sub

Private Sub Timer6_Timer()
Call E2BE9DB7(&HB16804, 0)
End Sub

Private Sub Timer7_Timer()
Call E2BE9DB7(&HB16804, 100000)
End Sub

Private Sub Timer8_Timer()
Call E2BE9DB7(&HAFB792, 1)
End Sub

I dont have E2BE6DB7 in my module
I use a Undetected module generator Final version By zeas
But i think there is the problem can anyone post a good Undetected module?
Please send it then

Thanx