Public Shared Sub Slidein(ByVal F As Form, s As Integer)
   Dim screenWidth As Integer = Screen.PrimaryScreen.Bounds.Width
   For i = 0 To s
        Threading.Thread.Sleep(3)
        F.Location = New Point(screenWidth - i, 0)
   Next
End Sub