'Set Device Image
    Private Sub GetImage()
        lang.Load()
        Dim P As Process
        Dim Hardware As String

        Dim psw As String = MaskedTextBox1.Text

        P = New Process()
        P.StartInfo.UseShellExecute = False
        P.StartInfo.RedirectStandardOutput = True
        ' Specify the location of the binary
        P.StartInfo.FileName = "javaloader.exe"

        ' Use these arguments for the process

        If MaskedTextBox1.Text = "" Then
            P.StartInfo.Arguments = "-u deviceinfo"
        Else
            P.StartInfo.Arguments = "-u -w" & psw & " deviceinfo"
        End If
        ' Use a hidden window
        P.StartInfo.CreateNoWindow = True
        P.Start()
        Dim S As String
        Dim myStreamReader As System.IO.StreamReader = P.StandardOutput
        S = myStreamReader.ReadLine()
        If (S = "") Then
            MsgBox(lang.nodevice, MsgBoxStyle.Exclamation)
        Else
            If ((S.Length() - 8) >= 8) Then
                Hardware = S.Substring(S.Length() - 7)
                Select Case Hardware


                    '8100
                    Case "4000d03"
                        PictureBox1.Image = My.Resources.Resource1.Pearl
                        PictureBox1.Location = New Point(-18, 3)
                        '8110
                    Case "f000d03"
                        PictureBox1.Image = My.Resources.Resource1.Pearl
                        PictureBox1.Location = New Point(-18, 3)
                        '8120
                    Case "d000d03"
                        PictureBox1.Image = My.Resources.Resource1.Pearl
                        PictureBox1.Location = New Point(-18, 3)
                        '8130
                    Case "4000d04"
                        PictureBox1.Image = My.Resources.Resource1.Pearl
                        PictureBox1.Location = New Point(-18, 3)
                        '8130m
                    Case "6000d04"
                        PictureBox1.Image = My.Resources.Resource1.Pearl
                        PictureBox1.Location = New Point(-18, 3)

                        '8220
                    Case "d001103"
                        PictureBox1.Image = My.Resources.Resource1._8200
                        PictureBox1.Location = New Point(-18, 3)
                        '8230
                    Case "4001104"
                        PictureBox1.Image = My.Resources.Resource1._8200
                        PictureBox1.Location = New Point(-18, 3)
                        '8230m
                    Case "6001104"
                        PictureBox1.Image = My.Resources.Resource1._8200
                        PictureBox1.Location = New Point(-18, 3)

                        '8300
                    Case "6000f03"
                        PictureBox1.Image = My.Resources.Resource1._8300
                        PictureBox1.Location = New Point(-18, 3)
                        '8310
                    Case "d000f03"
                        PictureBox1.Image = My.Resources.Resource1._8300
                        PictureBox1.Location = New Point(-18, 3)
                        '8320
                    Case "4000f03"
                        PictureBox1.Image = My.Resources.Resource1._8300
                        PictureBox1.Location = New Point(-18, 3)
                        '8330
                    Case "4000f04"
                        PictureBox1.Image = My.Resources.Resource1._8300
                        PictureBox1.Location = New Point(-18, 3)
                        '8330m
                    Case "6000f04"
                        PictureBox1.Image = My.Resources.Resource1._8300
                        PictureBox1.Location = New Point(-18, 3)
                        '8350
                    Case "4000f05"
                        PictureBox1.Image = My.Resources.Resource1._8350
                        PictureBox1.Location = New Point(0, 3)
                        '8520
                    Case "8C000F03"
                        PictureBox1.Image = My.Resources.Resource1._8520
                        PictureBox1.Location = New Point(-18, 3)
                        '8530
                    Case "5000F04"
                        PictureBox1.Image = My.Resources.Resource1._8520
                        PictureBox1.Location = New Point(-18, 3)

                        '8800
                    Case "4000e03"
                        PictureBox1.Image = My.Resources.Resource1._8830
                        PictureBox1.Location = New Point(-18, 3)
                        '8820
                    Case "d000e03"
                        PictureBox1.Image = My.Resources.Resource1._8830
                        PictureBox1.Location = New Point(-18, 3)
                        '8830
                    Case "04000e04"
                        PictureBox1.Image = My.Resources.Resource1._8830
                        PictureBox1.Location = New Point(-18, 3)
                        '8830m
                    Case "6000e04"
                        PictureBox1.Image = My.Resources.Resource1._8830
                        PictureBox1.Location = New Point(-18, 3)

                        '8900
                    Case "4001503"
                        PictureBox1.Image = My.Resources.Resource1._8900
                        PictureBox1.Location = New Point(-18, 3)
                        '8910
                    Case "86001503"
                        PictureBox1.Image = My.Resources.Resource1._8900
                        PictureBox1.Location = New Point(-18, 3)
                        '8980
                    Case "85001503"
                        PictureBox1.Image = My.Resources.Resource1._8520
                        PictureBox1.Location = New Point(-18, 3)
                        '9000
                    Case "4000e07"
                        PictureBox1.Image = My.Resources.Resource1.bold
                        PictureBox1.Location = New Point(-18, 3)
                        '9100/9150
                    Case "5000d07"
                        PictureBox1.Image = My.Resources.Resource1._9100
                        PictureBox1.Location = New Point(-18, 3)
                        '9300
                    Case "4000f07"
                        PictureBox1.Image = My.Resources.Resource1._9300
                        PictureBox1.Location = New Point(-18, 3)
                        '9330
                    Case "0e000f04"
                        PictureBox1.Image = My.Resources.Resource1._9300
                        PictureBox1.Location = New Point(-18, 3)
                        '9350
                    Case "c000f04"
                        PictureBox1.Image = My.Resources.Resource1._9350
                        PictureBox1.Location = New Point(-18, 3)
                        '9360
                    Case "0e000f04"
                        PictureBox1.Image = My.Resources.Resource1._9350
                        PictureBox1.Location = New Point(-18, 3)
                        '9370
                    Case "e001507"
                        PictureBox1.Image = My.Resources.Resource1._9350
                        PictureBox1.Location = New Point(-18, 3)
                        '9500
                    Case "4000e07"
                        PictureBox1.Image = My.Resources.Resource1.storm
                        PictureBox1.Location = New Point(-18, 3)
                        '9520
                    Case "d001404"
                        PictureBox1.Image = My.Resources.Resource1._9550
                        PictureBox1.Location = New Point(-18, 3)
                        '9530
                    Case "4001404"
                        PictureBox1.Image = My.Resources.Resource1.storm
                        PictureBox1.Location = New Point(-18, 3)
                        '9550
                    Case "c001404"
                        PictureBox1.Image = My.Resources.Resource1._9550
                        PictureBox1.Location = New Point(-18, 3)
                        '9630
                    Case "d000d04"
                        PictureBox1.Image = My.Resources.Resource1.tour
                        PictureBox1.Location = New Point(15, 3)
                        '9630fts
                    Case "16000d04"
                        PictureBox1.Image = My.Resources.Resource1.tour
                        PictureBox1.Location = New Point(15, 3)
                        '9650
                    Case "5001504"
                        PictureBox1.Image = My.Resources.Resource1._9650
                        PictureBox1.Location = New Point(-15, 3)
                        '9650
                    Case "7001504"
                        PictureBox1.Image = My.Resources.Resource1._9650
                        PictureBox1.Location = New Point(-15, 3)
                        '9700
                    Case "4001507"
                        PictureBox1.Image = My.Resources.Resource1._9700
                        PictureBox1.Location = New Point(-15, 3)
                        '9800
                    Case "5001807"
                        PictureBox1.Image = My.Resources.Resource1._9800
                        PictureBox1.Location = New Point(-15, 3)
                        '9850
                    Case "16001404"
                        PictureBox1.Image = My.Resources.Resource1._9850
                        PictureBox1.Location = New Point(-15, 3)
                        '9860
                    Case "1D001404"
                        PictureBox1.Image = My.Resources.Resource1._9850
                        PictureBox1.Location = New Point(-15, 3)
                        '9900
                    Case "7001204"
                        PictureBox1.Image = My.Resources.Resource1._9930
                        PictureBox1.Location = New Point(-15, 3)
                        '9930
                    Case "5001204"
                        PictureBox1.Image = My.Resources.Resource1._9930
                        PictureBox1.Location = New Point(-15, 3)
                End Select

            End If


        End If

    End Sub