Cara membuat Borderless Form yang Bisa Dipindahkan/Moveable di VB.Net

Apa itu borderless form? Borderless form adalah sebuah form yang tidak menampilkan bar yang biasanya berisi icon, judul, tombol minimize, maximize, dan close button. Tentu saja form ini tidak bisa dipindah kan dengan cara 'Click & Drag' mengklik dan drag form nya kemana saja kamu mau. Tidak percaya? coba sendiri. Cara membuat borderless form cukup simple. Berikut adalah cara membuat borderless form.

1. Klik kiri pada form


2. Lihat menu properties disamping kanan. Cari tulisan 'Form Border Style'


3. Disitu, defaultnya bertulisan 'Sizeable' ganti ke 'None'


4. Done

Pada bagian ini, kita akan membuat borderless form yang moveable atau bisa dipindahkan.

1. Double klik di Form mu


2. Dan sisipkan kode ini diantara Public Class Form1 dan End Class

#Region "Global Variables"

    Dim Point As New System.Drawing.Point()

    Dim X, Y As Integer

#End Region

#Region "GUI"

    Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

        If e.Button = MouseButtons.Left Then

            Point = Control.MousePosition

            Point.X = Point.X - (X)

            Point.Y = Point.Y - (Y)

            Me.Location = Point

        End If

    End Sub

    Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown

        X = Control.MousePosition.X - Me.Location.X

        Y = Control.MousePosition.Y - Me.Location.Y

    End Sub

#End Region

Selesai, sekarang coba dengan cara Start Debugging(Tombol play berwarna hijau) atau tekan F5 , Dan klik & drag pada form nya. Alhasil form border none ini bisa dipindahkan.