شلون اجعل للزر حركة و شلون اضيف العلامات

كود :

'Close Button

        Me.Close()



        'Maximized Button

        Me.WindowState = FormWindowState.Maximized



        'Minimized Button

        Me.WindowState = FormWindowState.Minimized

كود :

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Control.CheckForIllegalCrossThreadCalls = False

        btn_close.Left = Panel1.Left - btn_close.Width

        btn_minimize.Left = Panel1.Left - btn_close.Width + btn_minimize.Left

        If bgw_btn_close.IsBusy Then Exit Sub

        bgw_btn_close.RunWorkerAsync()

    End Sub

    Private Sub bgw_btn_close_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bgw_btn_close.DoWork

        Threading.Thread.Sleep(1500)

        Do Until btn_close.Left >= Panel1.Right - btn_close.Width

            btn_close.Left += 1

        Loop

    End Sub

    Private Sub btn_close_Click(sender As Object, e As EventArgs) Handles btn_close.Click

        End

    End Sub

    Private Sub btn_close_Move(sender As Object, e As EventArgs) Handles btn_close.Move

        btn_minimize.Left = btn_close.Left - btn_minimize.Width

    End Sub

    Private Sub btn_minimize_Click(sender As Object, e As EventArgs) Handles btn_minimize.Click

        Me.WindowState = FormWindowState.Minimized

    End Sub

End Class