Visual Basic

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Text = "0" Then
            Button1.Text = "1"
        Else
            Button1.Text = "0"
        End If
    End Sub

If Button1.Text.Replace(" ","") = "1" then
 Button1.Text = "0"
Elseif Button1.Text.Replace(" ","") = "0" then
 Button1.Text = "1"
End if

Private Sub updateUI()
    If Me.InvokeRequired Then
        Me.Invoke(New MethodInvoker(AddressOf updateUI))
    Else
        Me.Update()
    End If
End Sub

FlowLayoutPanel1.Controls.SetChildIndex(Button1, 0)

Private Sub AddTestTweet(ByVal tweet As TwitterStatus)
     If (Me.FlowLayoutPanel1.InvokeRequired) Then
         Me.FlowLayoutPanel1.Invoke(New AddTestTweetDelegate(AddressOf AddTestTweet), tweet)
     Else
         Console.WriteLine(String.Format("New tweet: @{0}: {1}", tweet.User.ScreenName, tweet.Text))
         Me.FlowLayoutPanel1.Controls.Add(New TweetTimelineControl(tweet))

     End If
 End Sub

Private Sub NewTweet(ByVal tweet As TwitterStatus)
       On Error Resume Next
       AddTestTweet(tweet)
End Sub

Public Class TweetTimelineControl
    Public Sub New(ByVal status As TwitterStatus)
        Me.InitializeComponent()

        Me.userPictureBox.LoadAsync(status.User.ProfileImageLocation)
        Me.UserNameLabel.Text = status.User.ScreenName
        Me.Label2.Text = status.CreatedDate.ToShortDateString()
        Me.DateLabel.Text = status.CreatedDate.ToShortTimeString()
        Me.TextLabel.Text = status.Text
        Me.Label1.Text = "Number Of Retweets: " & status.RetweetCountString
    End Sub
End Class

   Private Sub AddTestTweet(ByVal tweet As TwitterStatus)
        If (Me.FlowLayoutPanel1.InvokeRequired) Then
            Me.FlowLayoutPanel1.Invoke(New AddTestTweetDelegate(AddressOf AddTestTweet), tweet)
        Else
            Console.WriteLine(String.Format("New tweet: @{0}: {1}", tweet.User.ScreenName, tweet.Text))
            Me.FlowLayoutPanel1.Controls.Add(New TweetTimelineControl(tweet))
            
' Me.FlowLayoutPanel1.Controls.SetChildIndex(<the name of your control here, i think its somewhere in your "tweet" object or wherever you add the name property to your control>,<index depending on the settings you put at your control its probably 0 or FlowLayoutPanel1.controls.count>)
        End If
    End Sub

Private Sub AddTestTweet(ByVal tweet As TwitterStatus)
       If (Me.FlowLayoutPanel1.InvokeRequired) Then
           Me.FlowLayoutPanel1.Invoke(New AddTestTweetDelegate(AddressOf AddTestTweet), tweet)
       Else
           Console.WriteLine(String.Format("New tweet: @{0}: {1}", tweet.User.ScreenName, tweet.Text))

           Dim storedtweet As New TweetTimelineControl(tweet)
           Me.FlowLayoutPanel1.Controls.Add(storedtweet)
           Me.FlowLayoutPanel1.Controls.SetChildIndex(storedtweet, 0)

       End If
   End Sub

Nick Otten wrote:

the drivers are already at there most recent version. the problem is on the
printer tough. the printer itself gets an error and that makes the drivers
crash. so unfortunately that wont help to much.

Nick Otten wrote:

I already considered making batches of jobs to send. but the crashing of the
printer inst the only issue with the program (i just left less important once
out to shorten the post). A other problem i had was that when other people
printed documents they got lost in the pile of papers. and it already happened
once that those papers got onto the work floor (witch caused the necessary
panic)