I created a custom web control using three DropDownListBoxes and added that to my toolbox. When I dragged my control on to the page it is showing a simple arrow (web control indicator). What can I do to make the control to be appear on the page with there dropdown boxes. Please help me. Below is the code for the control.

Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.WebControls

<DefaultProperty("Text"), ToolboxData("<{0}:RajeshTimePicker runat=server></{0}:RajeshTimePicker>")> Public Class RajeshTimePicker
'Inherits System.Web.UI.Control
Inherits System.Web.UI.WebControls.WebControl
Implements INamingContainer


Dim Hrdblist As New DropDownList()
Dim Mindblist As New DropDownList()
Dim AMPMdblist As New DropDownList()


<Bindable(True), Category("Appearance"), DefaultValue("empty")> Property SelectedTime() As String
Get
Dim vTimeStr As String
vTimeStr = Hrdblist.SelectedItem.Text & ":" & Mindblist.SelectedItem.Text & _
AMPMdblist.SelectedItem.Text
Return vTimeStr

End Get

Set(ByVal Value As String)
EnsureChildControls()
'_text1 = Value
showtime(Value)
End Set
End Property


Protected Overrides Sub CreateChildControls()

popdblists()
Dim Hrlabel As New Label
Hrlabel.Text = "HR"
Dim Minlabel As New Label
Hrlabel.Text = "MIN"
Dim emtlabel As New Label
Hrlabel.Text = " "
Controls.Add(New LiteralControl("</h2>"))
Controls.Add(New LiteralControl("HR "))
Controls.Add(Hrdblist)
Controls.Add(New LiteralControl("</h2>"))
Controls.Add(New LiteralControl("<h2>Min "))
Controls.Add(Mindblist)
Controls.Add(New LiteralControl("</h2>"))
Controls.Add(AMPMdblist)
Controls.

'Controls.Add(Mindblist)
'Controls.Add(emtlabel)
'Controls.Add(AMPMdblist)

End Sub
Protected Overrides Sub OnPreRender(ByVal e As EventArgs)
CType(Controls(1), DropDownList).SelectedIndex = 1
CType(Controls(2), DropDownList).SelectedIndex = 4
End Sub

Private Function showtime(ByVal fvdatetime)

If (fvdatetime Is "empty") Then
Hrdblist.SelectedIndex = 0
Mindblist.SelectedIndex = 0
AMPMdblist.SelectedIndex = 0
Else

Dim moment As DateTime = fvdatetime

Dim vHr As Integer = moment.Hour
Dim vMin As Integer = moment.Minute

If vHr = 12 Then
Hrdblist.SelectedIndex = 12
Else
Hrdblist.SelectedIndex = (vHr Mod 12)

End If

Mindblist.SelectedIndex = vMin / 5

If vHr / 12 > 1 Then
AMPMdblist.SelectedIndex = 1
Else
AMPMdblist.SelectedIndex = 0
End If
End If
End Function
Private Sub popdblists()
Hrdblist.Items.Add("00")
Hrdblist.Items.Add("01")
Hrdblist.Items.Add("02")
Hrdblist.Items.Add("03")
Hrdblist.Items.Add("04")
Hrdblist.Items.Add("05")
Hrdblist.Items.Add("06")
Hrdblist.Items.Add("07")
Hrdblist.Items.Add("08")
Hrdblist.Items.Add("09")
Hrdblist.Items.Add("10")
Hrdblist.Items.Add("11")
Hrdblist.Items.Add("12")

Mindblist.Items.Add("00")
Mindblist.Items.Add("05")
Mindblist.Items.Add("10")
Mindblist.Items.Add("15")
Mindblist.Items.Add("20")
Mindblist.Items.Add("25")
Mindblist.Items.Add("30")
Mindblist.Items.Add("35")
Mindblist.Items.Add("40")
Mindblist.Items.Add("45")
Mindblist.Items.Add("50")
Mindblist.Items.Add("55")


AMPMdblist.Items.Add("AM")
AMPMdblist.Items.Add("PM")

End Sub
End Class

Sounds to me like you need to create a designer for your control and override GetDesignTimeHtml. You can create a designer like so:

#Region " Designer "


Public Class MyControlDesigner


    Inherits System.Web.UI.Design.ControlDesigner


    


    Public Overrides Function GetDesignTimeHtml() As String


        Return "<TABLE width=""40%"" cellspacing=0 cellpadding=0 border=1><TR><TD width=""100%"">" & Date.Now() & "</TD></TR></TABLE>"


    End Function


End Class


#End Region

Then, as an attribute for your control you can have the following:

DesignerAttribute(GetType(MyControlDesigner), GetType(IDesigner))

Hope this helps,
Russ