ارتباط 2 updown numeric با یکدیگر

[unforgiven]

سلام
من در فرمم 2 تا کنترل updown numeric دارم که میخوام مقدار value اين 2 کنترل با هم در ارتباط باشن .یعنی اگر ولیو کنترل 1 رو با گام افزایشی 1 بالا بردم وليو کنترل دوم هم یکی بالا بره و برعکسش هم انجام بشه .
من از کد زیر استفاده کردم برای افزایش دادن درست کار میکنه اما وقتی کنترل 1 رو کاهش میدم کنترل دوم باز افزایشی عمل میکنه .
دوستان لطفا راهنمایی کنید .
متشکرم


Private Sub updown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles updown1.ValueChanged

Dim initialval1 As Integer = 1000
If updown1.Value > initialval1 Then
updown2.Value += 1
End If

If updown1.Value > initialval1 Then
Exit Sub
Else
updown2.Value -= 1
End If
End Sub

[unforgiven]

سلام مجدد
من نمونه فایل هم ضمیمه کردم .

[as987498749874]

Dim Last_Val As Decimal
Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UD1.ValueChanged
If UD1.Value > Last_Val Then
If UD2.Value < UD2.Maximum Then
UD2.Value += 1
Else
MsgBox("con't incrase of max for ud2")
UD1.Value = Last_Val
End If
ElseIf UD1.Value < Last_Val Then
If UD2.Value > UD2.Minimum Then
UD2.Value -= 1
Else
MsgBox("con't less of min for ud2")
UD1.Value = Last_Val
End If
End If
Last_Val = UD1.Value
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Last_Val = UD1.Value
End Sub


ud1 , ud2 دو تا updown هستن!!!

[unforgiven]

سلام
دستت طلا . دقیقا چیزی بود که میخواستم .


ud1 , ud2 دو تا updown هستن

بله 2 تا کنترل updown هستند .