
234 Chapter 6 • Advanced Programming Concepts
Imports System.Drawing
Imports System.WinForms
Public Class testform
Inherits System.WinForms.Form
2 Protected Sub cmdBlue_Click(ByVal sender As Object, ByVal e
As System.EventArgs)
3 Dim delMess As New delegatedemo()
4 Dim sMessage As String
5 delmess.showcolor(AddressOf blueMessage, "Hello World B ")
6 msgbox(sMessage)
7 End Sub
8 Protected Sub cmdRed_Click(ByVal sender As Object, ByVal e
As System.EventArgs)
9 Dim delMess As New delegatedemo()
10 Dim sMessage As String
11 delmess.showcolor(AddressOf redMessage, "Hello World R")
12 msgbox(sMessage)
13 End Sub
14 Private Function redMessage(ByVal sSmessage As String) ...