Aca no se hacen tareas, muestra lo que hiciste y aclara en lugar tienes dudas

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPublic Sub Mover_Button()
Dim X as Integeger = Button1.Location.X
Dim Y as integer = Button1.Location.Y
If Y > 200 Then
Y-=3
Button1.Location = New Point(X,Y)
End If
End Sub
Cita de: 79137913 en 20 Abril 2012, 18:08 PMExacto, tu problema no es de visual basic, es de servidores. Revisa bien los logs, has pruebas, fíjate si podes comprobar a esa hora que se ralentiza y entras al servidor y te fijas que esta haciendo.
A no ser que tu codigo sea un fiasco el vb no es tu problema, tu problema es el sqlserver.