In this example , we'll call a sub , provided with few parameters
AddSilaPilih(ddlPaymentType, ddlDocLayer, ddlDocType)
Public Sub AddSilaPilih(ByVal ParamArray ddlObj() As DropDownList)
dim newItem As New ListItem
newItem.Value = 0
newItem.Text = "--Options--"
For i As Integer = 0 To ddlObj.GetLength(0) - 1
ddlObj(i).Items.Add(newItem)
ddlObj(i).SelectedIndex = ddlObj(i).Items.Count - 1
Next
End Sub
Credit to Mr Sascha