Public Class Form1

Dim myval As valtotal

Structure valtotal
Dim valname As String
Dim valpass As String
Dim valgroup As String
Dim vallevel As Integer
Dim valno As Double
End Structure

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
myval.valname = "홍길동"
myval.valpass = "gg1234"
myval.valgroup = " 일반"
myval.vallevel = 1
myval.valno = 1234567890

MsgBox(myval.valname)
MsgBox(myval.valno)
End Sub
End Class