Dim a As Microsoft.Ink.Stroke Label1.Text = a.GetPacketValuesByProperty(Microsoft.Ink.PacketProperty.NormalPressure)(0)
Dim a As New Microsoft.Ink.Stroke Label1.Text = a.GetPacketValuesByProperty(Microsoft.Ink.PacketProperty.NormalPressure)(0)