do someone have new tapprogramm that works

private sub buttonClickedDerpHerp() handles derpherp.clicked
' Public method of disconnecting
Shell("NET STOP DHCP")
end sub

private sub buttonClickedHerpDerp() handles herpderp.clicked
' Public method of reconnect
Shell("NET START DHCP")
end sub

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
Const Base As Long = 1000000
Const Top As Long = 65536
private sub form1_load() handles me.load
me.title = Int((Base * Rnd()) + Top) + 1
timer1.interval = 5
timer1.enabled = true
end sub
private sub timer1_tick() handles timer1.tick
if GetASyncKeyState(Keys.<connect key>) then ' Connect Key
connect()
elseif GetASyncKeyState(keys.<disconnect key>) then 'disconnect key
disconnect()
end if
end sub
private sub connect()
Shell(decryptString("szmyxpsq*9|oxo￾")
end sub
private sub disconnect()
Shell(decryptString("szmyxpsq*9|ovok}o"))
end sub
private sub decryptString(byval stringToDecrypt as string)
' Code not featured
end sub