Private Sub Komut14_Click()
Dim tr1, tr2, tr3 As Date
tr1 = Me.Metin0.Value
tr2 = Me.Metin2.Value
tr3 = Me.Metin4.Value
If tr3 > tr1 And tr3 < tr2 Then
MsgBox "TR3 TR1 DEN BÜYÜK TR2 DEN KÜÇÜK"
'Şart msağlandığında yapılacak işlemler
Me.Liste12.AddItem (tr3)
Else
MsgBox "TR3 TR1 DEN BÜYÜK TR2 DEN KÜÇÜK ŞARTI SAĞLANMIYOR"
'Şart sağlanmadığında yapılacak işlemler.
End If
End Sub
konu eski fakat ilave etmek istedim.