[Mohamad Anan]

السلام عليكم و رحمة الله و بركاته

كود :

   REM المطلوب تنفيذه في عملية منفصلة في الخلفية
   Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
       Form1.ShowDialog()
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Me.BackgroundWorker1.RunWorkerAsync()
   End Sub