Make a floating or running program in vb 2013

In this post i will show you how to make your project floating on screen or your desktop.

You need -

1. 2 button

2. Lable

3. Timer1

Script or source code :- 

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox("www.kickvb.blogspot.com")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If (Me.Bounds.Y > 300) Then
            Me.SetBounds((Me.Bounds.X + 0), (Me.Bounds.Y + 0), Me.Width, Me.Height)
        Else
            Me.SetBounds((Me.Bounds.X + 1), (Me.Bounds.Y + 1), Me.Width, Me.Height)
        End If
    End Sub
End Class