' Copyright 2010 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See the use restrictions.
' 

Imports Microsoft.VisualBasic
Imports System
Namespace Commom_SimpleServerTask_VBNet
    Partial Public Class ButtonTextEditorForm
        Inherits System.Windows.Forms.Form
        Public Sub New(ByVal value As String)
            InitializeComponent()
            Me.Value = value
        End Sub

        Public Property Value() As String
            Get
                Return txtButtonText.Text
            End Get
            Set(ByVal value As String)
                If value IsNot Nothing Then
                    txtButtonText.Text = value
                End If
            End Set
        End Property

        Private Sub cmdOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdOK.Click
            DialogResult = System.Windows.Forms.DialogResult.OK
            Hide()
        End Sub

        Private Sub cmdCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
            DialogResult = System.Windows.Forms.DialogResult.Cancel
            Hide()
        End Sub


    End Class
End Namespace