Custom Message Box Using Thread That Closes Automatically

Public Class frmMain

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Application.Exit()

    End Sub

    Private Sub btnShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShow.Click
        Dim myTitle, myMsg As String
        Dim isAuto As Boolean
        Dim waitTime As Integer

        waitTime = Me.txtWait.Text
        myTitle = Me.txtTitle.Text
        myMsg = Me.rtbMsg.Text
        isAuto = Me.txtWait.Text

        Dim myMsgBox As New customMsgBox(myTitle, myMsg, isAuto, waitTime)
        myMsgBox.Show()

    End Sub

    Private Sub rdoFalse_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdoFalse.CheckedChanged
        '## For autoClose=False ,  wait entry  disable'##
        If Me.rdoFalse.Checked = True Then
            Me.txtWait.Text = "2"
            Me.txtWait.Enabled = False
        Else
            Me.txtWait.Enabled = True
        End If
    End Sub

End Class