نجديه1

طبعنا اكتب كود فوق Public Class Form1 () Sub EndPEOGRAM Dim R As String ( "الخروج" , MsgBoxStyle.YesNo,"هل تريد الخروج" )R = MsgBox If R = 6 Then End Else Exit Sub End If End Sub في Private Sub Button1 () Call EndPEOGRAM End Sub End Class

طبعنا اكتب كود في زر في Button2 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Form3.Show() Me.Hide() End Sub End Class