Show Taskbar and BindingContext

[Nathan Carroll]

Attempting to eliminate flicker showing (form) and hiding seems to have no
effect as I have it below.
if I move the lines: Me.Show()
Me.ShowInTaskba r = True
f.Close()

to the end of the load procedure the flicker goes away and produces effects
that destroy my multiple binding scheme.

This Line: Me.CurrentDate. Text = CStr(Now) is has a problem with
show/taskbar. It sets the binding context of the TimeIDs and they inturn
update their rows.

Any clues for a remedy to this flicker.
Private Sub Form1_Load(ByVa l sender As Object, ByVal e As System.EventArg s)
Handles MyBase.Load
Dim f As Form
Me.ShowInTaskba r = False
Me.Hide()
f = New frmSplash
f.Show()
DataPrepare()
SetupRows()
PrepareCalendar Buttons()
Me.Left = SystemInformati on.WorkingArea. Width - Me.Width
Me.Top = SystemInformati on.WorkingArea. Height - Me.Height
Dim bc As New BindingContext
Dim bc1 As New BindingContext
Dim bc2 As New BindingContext

Me.TimeID0.Bind ingContext = bc
Me.TimeID1.Bind ingContext = bc1
Me.TimeID2.Bind ingContext = bc2

'these two are combo fills
Me.DaFC.Fill(Me .DsFullClient1. FullClientCombo )
Me.DaDescript.F ill(Me.DsTime1. BillableDescrip tion)

'this is the dataset for the rows
Me.LoadDataSet( )

bTbl = New DataTable
bTbl = Me.DsTime1.Bill ableTimesheet
bView = New DataView(Me.DsT ime1.BillableTi mesheet)

Me.Show()
Me.ShowInTaskba r = True
f.Close()

Me.CurrentDate. Text = CStr(Now)

Dim i As Integer
For i = 0 To 2
With Rows(i)
.FullClient.Dat aBindings.Add(" SelectedValue", bView, "WorkOrder" )
.bDdate.DataBin dings.Add("Text ", bView, "BillableDa te")
.Hours.MyText.D ataBindings.Add ("Text", bView, "BillableHours" )
.Computer.MyTex t.DataBindings. Add("Text", bView, "ComputerTi me")
.Description.Da taBindings.Add( "Text", bView, "Descriptio n")
.TimeID.DataBin dings.Add("Text ", bView, "TimeID")
.UserID.DataBin dings.Add("Text ", bView, "UserID")
.WO.DataBinding s.Add("Text", bView, "WorkOrder" )
End With
Next

GrabUserID()

Rows(0).RowPane l.BackColor =
Rows(ActiveRow) .RowPanel.BackC olor.FromArgb(1 99, 195, 170)

End Sub