codice:private declare sub Sleep lib "kernel32.dll" (byval dwmillisecond as long) Private Sub Command1_Click() dim imsec as integer altf = Form1.Height For i = altf To 5000 Form1.Height = i sleep imsec imsec = imsec + 1 doevents Next End Sub
codice:private declare sub Sleep lib "kernel32.dll" (byval dwmillisecond as long) Private Sub Command1_Click() dim imsec as integer altf = Form1.Height For i = altf To 5000 Form1.Height = i sleep imsec imsec = imsec + 1 doevents Next End Sub
Vascello fantasma dei mentecatti nonchè baronetto della scara corona alcolica, piccolo spuccello di pezza dislessico e ubriaco- Colui che ha modificato l'orribile scritta - Gran Evacuatore Mentecatto - Tristo Mietitore Mentecatto chi usa uTonter danneggia anche te
Permessi di invio
Rispondi quotando