اداةStatusStrip

يمكن اسناد قيمة نصية مباشرة إلى الكائن

 Dim UserName As String
        UserName = "AAA"
        ToolStripStatusLabel1.Text = UserName

ولإضافة تاريخ اليوم فقط

        ToolStripStatusLabel1.Text = DateTime.Today

اذا اردتي التاريخ والوقت معا ستحتاجي الى مؤقت لتحديث الزمن كل ثانية

مثال

    Dim WithEvents timer As New Timer With {.Interval = 1000, .Enabled = True}
    Private Sub timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles timer.Tick
        ToolStripStatusLabel1.Text = Now
    End Sub

شكرا جزيلا  لك على الرد 

انا استخدمت هذه الطريقة ونجحت وكتبها في الفورم لود 

 ToolStripStatusLabel2.Text = TimeOfDay
        ToolStripStatusLabel1.Text = Form9.TextBox1.Text
        ToolStripStatusLabel3.Text = DateString

العفو

happy coding