• 목록

• 페이스북 공유
• 트위터 공유

    Private Sub SetToolTip(ByRef ctl As Control, ByVal caption As String)

        Dim toolTip1 As ToolTip = New ToolTip()

        toolTip1.AutoPopDelay = 5000

        toolTip1.InitialDelay = 100

        toolTip1.ReshowDelay = 500

        toolTip1.ShowAlways = True

        toolTip1.SetToolTip(ctl, caption)

    End Sub

        SetToolTip(Button7, "Print paper")

        SetToolTip(Button9, "Print wrong answers")

        SetToolTip(Button6, "Print answersheet")

        SetToolTip(Button1, "Insert anwersheet")

        SetToolTip(Button8, "ID search")

        SetToolTip(Button2, "History")