общий код ???

Public Sub exitBut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitBut.Click
        Dim messaga As String
        Dim picka As String
        Dim style As MsgBoxStyle
        Dim rezultat As MsgBoxResult
        messaga = "Точно выходишь ?" ' Сообщение
        style = MsgBoxStyle.DefaultButton1 Or _
           MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo
        picka = "Выход из программы" ' Подпись на шапке
        rezultat = MsgBox(messaga, style, picka)
        If rezultat = MsgBoxResult.Yes Then
            Me.Close()
            Form1.Show()
        Else
            MessageBox.Show("Продолжай")
        End If
    End Sub