Update Form1.vb

do some shit