[سعود]

شوف اخي الكريم ودي اعطيك كود لا علاقة له باي قاعدة بيانات لكن جربه وحاول ان تطبقه وبعد ذلك ان اعجبك فهذا شيء جيد وان لم يعجبك فالاخوة سيكتبون الحلول التي تريدها  ان شاء الله.
صمم مشروع:
Textbox1
Textbox2
label1
Button1

ضمن حدث تحميل النموذج اكتب

كود :

       Dim a, s As String
       For Each t In Now.ToString
           If IsNumeric(t) Then
               a &= t
           End If
       Next
       Threading.Thread.Sleep(3000)
       For Each t In Now.ToString
           If IsNumeric(t) Then
               s &= t
           End If
       Next

       TextBox1.Text = a
       TextBox2.Text = s

وضمن حدث النقر لزر الامر اكتب:

كود :

       Label1.Text = Math.Max(Val(TextBox1.Text), Val(TextBox2.Text))

أرجو ان تجد بردي هذا ولو القليل من الحل.