[kslawy]

أبسط طريقة :

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CDate(Me.TextBox2.Text.Trim) > CDate(Me.TextBox1.Text.Trim) Then
            ' Form2.Show()
        Else
            MsgBox("لا يمكن الدخول التاريخ مختلف")
        End If
    End Sub