Code:
Public Function FN_Test(ByVal LT1 As String) As Single Dim rVal As Single Select Case LT1 Case "W": rVal = "0.78" Case "1": rVal = "1.66" Case "L": rVal = "1.66" Case "X": rVal = "1.66"
Public Function FN_Test(ByVal LT1 As String) As Single Dim rVal As Single Select Case LT1 Case "W": rVal = "0.78" Case "1": rVal = "1.66" Case "L": rVal = "1.66" Case "X": rVal = "1.66"
picNotify.Image = My.Resources.[ImageName]
Leave a comment: