... ImportRecord RowPosition = RowPosition + 1 EmpNumber = Trim(Mid(ImportRecord, 1, InStr (1, ImportRecord, Delimiter, 1) - 1) ) EmpName = Trim(Mid(ImportRecord, 7, 10 )) Copyright © http://vndownloads.net ... subclassing bằng cách bạn mở 1 project mới và thêm 1 module vào project (project/add module/open). Bây giờ bạn đã có Form1 và Module1 trong project. Bạn mở Module1 ra và copy, paste đoạn code ... Then Calendar1.SelectedDate = dSelectedDate Calendar1.VisibleDate = dSelectedDate Else Calendar1.SelectedDate = #12 :00:00 AM# Calendar1.VisibleDate = Now End If Calendar1.ToolTip =...