Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Drawing
Imports System.Data
Imports System.Windows.Forms
Public Class BasicTool
Inherits Xceed.DockingWindows.ToolWindow
Private components As System.ComponentModel.Container = Nothing
Public Sub New( key As String, caption As String, image As Image )
InitializeComponent()
Me.Key = key
Me.Text = caption
Me.Image = image
End Sub
Protected Overrides Overloads Sub Dispose( disposing As Boolean )
If disposing Then
If Not components Is Nothing Then
components.Dispose()
End If
End If
MyBase.Dispose( disposing )
End Sub
Private Sub InitializeComponent()
Me.Key = "BasicTool"
Me.Size = new System.Drawing.Size(240, 328)
End Sub
Public Overrides Function ToString() As String
Return Me.Text
End Function
End Class