이 이미지 네 개를 이용해서 신호등을 조작하는 프로그램임.

1. 가장 먼저 신호등은 켜져있지 않음.

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PictureBox1.Image = Image.FromFile(CurDir() & "\\신호등(준비중).png")
    End Sub

Form1_Load에선 프로그램이 로딩이 되면 신호등이 준비중인 상태를 보여주는 코드임.

• 나머지 버튼들 -

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        PictureBox1.Image = Image.FromFile(CurDir() & "\\신호등(적색).png")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        PictureBox1.Image = Image.FromFile(CurDir() & "\\신호등(노랑색).png")
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        PictureBox1.Image = Image.FromFile(CurDir() & "\\신호등(녹색).png")
    End Sub