Sorry for the bad code as coping from VS2005 and pasting didn't work that well for me.
Dim mUser As DotNetNuke.Entities.Users.UserInfo = DotNetNuke.Entities.Users.UserController.GetCurrentUserInfo
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
If (Not Page.IsPostBack) Then
panUser.Visible = False
panCust.Visible = False
panInvSo.Visible = False
panDetails.Visible = False
dlContacts.Visible = False
End If
txtUserName.Text = mUser.Username.ToString()
Label1.Text = txtUserName.Text
End Sub
Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim txtUserName As TextBox = CType(FindControl("txtUserName"), TextBox)
srcComplaint.InsertParameters("fcomp_create_by").DefaultValue = txtUserName.Text
srcComplaint.InsertParameters("fcomp_cust").DefaultValue = ddlCustomer.SelectedValue.ToString
srcComplaint.Insert()
srcComplaint.DataBind()
End Sub