Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Location = New Point(My.Computer.Screen.WorkingArea.Width - _
        Me.Width, My.Computer.Screen.WorkingArea.Bottom)
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Me.Location = New Point(Me.Location.X, Me.Location.Y - 15)
        If Me.Bottom = My.Computer.Screen.Bounds.Bottom Then
            Timer1.Enabled = False
        End If
    End Sub