Dim extension As String = Path.GetExtension(FileUpload3.PostedFile.FileName)
If extension <> ".jpg" And extension <> ".png" And extension <> ".gif" Then
clsFunction.DisplayAlert("รองรับ File ประเภท JPG, PNG, GIF เท่านั้น", Me)
Exit Sub
End If
If Me.FileUpload3.FileBytes.Length > "2000000" Then
clsFunction.DisplayAlert("ขนาด File ต้องขนาดไม่เกิน 2 MB", Me)
Exit Sub
End If