Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim keyword As String = ""
        Dim arrKeyword() As String
        Dim param As String = ""
        Timer1.Enabled = False

        ymVersion = getYMVersion()
        Select Case ymVersion
            Case "8"

                hwndYMMainClass = FindWindow("YSearchMenuWndClass", vbNullString)

            Case "9"
                hwndYMMainClass = FindWindow("ATL:007C07F0", vbNullString)

            Case "10"
                hwndYMMainClass = FindWindow("CConvWndBase", vbNullString)

        End Select
        If hwndYMMainClass <> 0 Then

            pause(1)

            ymid = getYMID(hwndYMMainClass)
            msg = getYMMessage(hwndYMMainClass)
            lstBox.Items.Add(ymid + "-" + msg)

            'Label1.Text = msg

            If Len(msg) > 0 Then
                If InStr(1, msg, " ", CompareMethod.Text) > 0 Then
                    arrKeyword = Split(msg, " ")
                    keyword = arrKeyword(0)

                Else
                    keyword = msg
                    ReDim arrKeyword(0)
                End If
            Else
                keyword = ""
                ReDim arrKeyword(0)
            End If

            ymChatSend(hwndYMMainClass, "Telah terima")
            closeYM(hwndYMMainClass)
            Timer1.Enabled = True
            'MsgBox(keyword)
        End If
    End Sub