You're Welcome :)

1. Yes, its for input name.
2. Yes, sohel used to know input name and show in msgbox. (same for jewel)
3. Yes, it connected.
First, sohel in CheckWinner function parameter and sohel in global...

>> Call CheckWinner(Text1, Text2, Text3)
here text1 mean t1 what was write in the module?
Yes. text1 will assigned with T1, then T1 used to check back color of textbox.

>> Public Sub...

I already see your project.
You write too many if statement (make me dizzy) and it redundant.
Actually you can simplify your if statement become a function. so you just call function in each...

SELECT * FROM participants WHERE Date between DTPicker1.Value and DTPicker2.Value

Add on click event (you can find combo box filled with sstab event on the top of code window)
This following code will make u can't open other tabs without fill textbox 1 (text1).

Private Sub...

using between or operator ">" and "<".

sql = "INSERT INTO Department(Department_ID,Department_name)VALUES('" & deptid & "','" & Text2.Text & "' )"

1. See this thread for module (http://www.daniweb.com/forums/thread116910.html)
2. See this thread for class module (http://www.daniweb.com/forums/thread27608.html)

this a some links about...

Well, this morning i copying new font and there are no error when i used in vb.

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 5
If ProgressBar1.Value = 100 Then
MDIForm1.Show
Timer1.Enabled = False
Unload Me
End If...

>>There are another ways to hide drive without using API function?
Yes, with add key on your registry...
Add module :
Public Sub CreateKey(ayun As String, Value As String)
Dim b As Object
On...

try this following code to hide folder
Private Sub Form_Load()
Dim FileSys, FolderPath
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set FolderPath = FileSys.GetFolder("D:\test")...

You're Welcome...
Happy coding :)

Call Decript function before check.
......WHERE Decript(psw)=' " & text1.text & " '

Or
You can encript inputed pasw before check
......WHERE psw=' " & Encript(text1.text) & " '

SS Tab is a control on Component (Ctrl + T or Project ->Component).

' Return True if a file exists

Function FileExists(FileName As String) As Boolean
On Error GoTo ErrorHandler
' get the attributes and ensure that it isn't a directory
FileExists =...

just to correct :)
Dim LengthOfTID as Integer
Anyway selvaganapathy has given the best answer.

Yes, i know it but your sintax is wrong, its should be C:\ not C:/
Also you don't have function to check if folder exist or not. see this following code :
Public Function FolderExist(Path As...

its not about date but your pathName is wrong.
should be : C:\

Private Function TimeDiff(Time1 As String, Time2 As String) As String
Dim MinsDiff As String
Dim TheHours As String
MinsDiff = DateDiff("n", Time1, Time2)
'If midnight is between times
MinsDiff...

Form1.Show vbModal

If ListViewName.ListItems.Item(i).Checked = True Then
' Do anything
End If

yes, thats right...

add this following code in your module :
Public Sub RetrieveIcon(fName As String, DC As PictureBox, icnSize As IconRetrieve)
Dim hImgSmall, hImgLarge As Long 'the handle to the system image...

hmmm. i never do this but i think you can run the exe file.

Add in your declaration :
Const MAX_PATH As Integer = 260

set BorderStyle of Form properties to None

Picture1.Picture = LoadPicture("F:\Pictures\Icon\CloseX.ico")

Hi..
File ->Make YourProjectName.Exe

use tab index to set cursor on current text box.
setfocus cannot be called in form load. just in procedure or function.

# To add a Date Time Picker control, on the Toolbox, click the More Controls button
# Scroll down in the list of controls, click Microsoft Date and Time Picker 6.0 (SP4), and click the form.
see...

i tried this with 2 listbox and 1 button. i was moved item on list2 to list5 and remove current item after moved.
Private Sub Form_Load()
With List2
.AddItem ("1")
.AddItem ("2")
...

With lstReorder
.AddItem (ITEM_NUMBER.Text)
.AddItem (ITEM_DESCRIPTION_1.Text)
End With

i was modified your code.
your messagebox parameter is not completed, that why errors coming out.
Private Sub xExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles...

yes, here it is the code, try it and let me know if it worked :
Dim AllDir
Private Sub Form_Load()
On Error Resume Next
For i = 65 To 90
x = Dir(Chr(i) & ":\", vbDirectory + vbHidden + vbSystem)...

tell me if this code worked...

try this following code vega :
Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Private Type SYSTEM_INFO
dwOemID As Long
dwPageSize As Long
...

Thank you...
We just give what we know and glad to share our knowledge :)
Happy coding Friend.

don't felt that, i really like your code.
i happy to know much from you too. you are the great coder, your code always help me and others. So, many alternative solution make it more completed.