Free Windows Wallpaper

we give information and picture wallpaper : Windows XP, Nice Wallpaper XP, Windows 3D, Windows 7, Windows Desktop, Windows Natural XP and more

code memecah String text

By Djenar Siti

ini ada sedikit code untuk kalian vb mania. mudahan bermanfaat.

Dim t As String
t = InStr(1, Me.nama, ":", vbTextCompare)
Me.Text15 = Left(Me.nama, t - 1)
Me.Text17 = Mid(Me.nama, t + 1, Len(Me.nama) - t)

salam

admin.

No Comment

Post a Comment