ValentineEm có nhớ gì không?
Thuở hò hẹn một chiều mưa giăng lối
Ngập ngừng muốn nói
Chỉ đôi lời mà sao chẳng thành câu?
Valentine
Vẫn cứ buồn
Khi một mình lang thang chiều vắng
Trên con đường gió lặng
Hỏi tại sao vệt nắng chóng tàn?
Valentine
Chất chứa những hoang mang
Đeo đẳng chút nhớ trong hơi tàn cố gượng
Những kỷ niệm
Viết vào tim
Những vết cứa mơ hồ!
Valentine
Vẫn chưa đến mà sao đi qua vội
Đôi lời chưa dám nói
Câu cười chưa hé nở vành môi
Sao vội trôi?
Ừ, thì thôi
Cũng chỉ là một Valentine buồn bã
Ngửa mặt nhìn sắc trời đoán lá
Rơi âm thầm nghe thật lạ mà quen...
Bình luận
Unregistered
Unregistered
Unregistered
Ha noi dong ve mua lat phat khong khi tet bat dau len loi den tung ngoi nha ,tung con pho ,tung ngo nho ,troi lanh khien tam hon nguoi xa xu cung tro nen trong vang,hiu quanh.
Noi niem nguoi xa xu noi chung la cam giac nho nha va nho gia dinh,mong som duoc ve sum hop cung gia dinh. Don mot cai tet vui ve.
Happy new year
[move][/move][move]
Unregistered
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Command1_Click()
Dim i As Integer
Dim sMedia As IWMPMedia
Dim sPlaylist As IWMPPlaylist
With WindowsMediaPlayer1
Set sPlaylist = .playlistCollection.newPlaylist("Audio")
.currentPlaylist = sPlaylist
‘ Duyệt hết danh sách đã được chọn
For i = 0 To File1.ListCount – 1
If File1.Selected(i) Then
‘ Thêm tên tập tin MP3 vào danh sách muốn Play
Set sMedia = .MediaCollection.Add(File1.Path & "\" & File1.List(i))
.currentPlaylist.insertItem (.currentPlaylist.Count), sMedia
End If
Next
.Controls.play ‘ Bắt đầu Play danh sách
End With
End Sub
Unregistered
Người không nói gì
Nhóm: Members
Bài viết: 0
Nhập: 11-November 06
Đến từ: Nghệ An
Thành viên: 18,863
Unregistered