[سعود]

هذا كلاس بسيط

كود :

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

عطل مربع الازرار وضع اعلى الفورم بانل لتضع بها زرين عين لهما صورة تعبر عن مؤداهما
اضف backgroundworker