영어청취와 사업아이디어, 컴퓨터무료강의가 있는 곳

폼 클래스 밑에 아래와 같이 입력합니다.
Structure student

        Dim Name As String

        Dim Number As String

        Dim English As UShort

        Dim History As UShort
End Structure
물론 향후 공부하게 되면 자신만의 모듈을 만들어서 그곳에 넣어놓고 불러서 사용할 수 있습니다.

[예제] 사용자 정의 데이터형

Public Class Form1

'사용자 자료형

    Structure student

        Dim Name As String

        Dim Number As String

        Dim English As UShort

        Dim History As UShort

    End Structure

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

       'OurStudent를 사용자정의 자료형인 student로 선언

        Dim OurStudent As student

       '변수에 값 할당

        OurStudent.Name = "홍길동"

        OurStudent.Number = "2002975"

        OurStudent.English = 98

        OurStudent.History = 78

        MsgBox("학생의 이름, 학번, 영어점수, 국사점수는 각각 " _ 
        &  OurStudent.Name & "," & OurStudent.Number & _

        "," & CStr(OurStudent.English) & "," & _
        CStr(OurStudent.History) & "입니다.", , _
        "사용자정의 데이터  예제")

    End Sub

End Class

[참고] Cstr() 함수
문자열 자료형으로 변환해주는 함수. 위의 경우에는 English, History가 UShort형이므로
이를 문자열로 바꿔주었음.

실행 화면
(버튼 하나만 배치하였음)