30-07-19, 12:58 PM
احذف جميع الاكواد الموجودة في الكلاس
وضع الكود
دا
Namespace My
Partial Friend Class MyApplication
Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As
Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
My.Settings.nb += 1
My.Settings.Save()
End Sub
End Class
End Namespace
وضع الكود
دا
Namespace My
Partial Friend Class MyApplication
Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As
Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
My.Settings.nb += 1
My.Settings.Save()
End Sub
End Class
End Namespace
![[صورة مرفقة: p_1583w56341.gif]](https://l.top4top.io/p_1583w56341.gif)
