Формирование почтового индекса

Option Explicit
Dim P(0 To 5) As PictureBox
 
Private Sub Command1_Click()
    Dim n As Integer, i As Integer, s As String
    For i = 0 To 5
        P(i).Cls
    Next i
    Call Dot
    s = InputBox("Введите шестизначный индекс", "Ввод данных", 123456)
    If Len(s) < 6 Then s = String(6 - Len(s), "0") & s
    For i = 0 To 5
         n = Val(Mid(s, i + 1, 1))
         Dig i, n
    Next i
End Sub
 
Private Sub Form_Load()
    Dim i As Integer
    Picture1(0).BorderStyle = 1 ' 0
    Set P(0) = Picture1(0)
    P(0).Left = 500: P(0).Top = 200
    For i = 1 To 5
       Load Picture1(i): Set P(i) = Picture1(i)
       P(i).Left = P(i - 1).Left + P(0).Width + 300: P(i).Visible = True
    Next i
    For i = 0 To 5
       P(i).AutoRedraw = True: P(i).Scale (0, 10)-(10, 0): P(i).DrawWidth = 3
    Next i
    Me.Width = P(5).Left + P(5).Width + 500
    Call Dot
End Sub
 
Private Sub Dig(ByVal i As Integer, ByVal Digit As Integer)
    Select Case Digit
      Case 1: Seg i, "001101000"
      Case 2: Seg i, "001010011"
      Case 3: Seg i, "000011110"
      Case 4: Seg i, "101100100"
      Case 5: Seg i, "100110101"
      Case 6: Seg i, "010101101"
      Case 7: Seg i, "010011000"
      Case 8: Seg i, "111110101"
      Case 9: Seg i, "101010110"
      Case 0: Seg i, "111110001"
    End Select
End Sub
 
Private Sub Seg(ByVal i As Integer, ByVal s As String)
     Dim j As Integer
     For j = 1 To 9
         If Mid(s, j, 1) > 0 Then
             Select Case j
                  Case 1: P(i).Line (1, 9)-(1, 5)
                  Case 2: P(i).Line (1, 5)-(1, 1)
                  Case 3: P(i).Line (9, 9)-(9, 5)
                  Case 4: P(i).Line (9, 5)-(9, 1)
                  Case 5: P(i).Line (1, 9)-(9, 9)
                  Case 6: P(i).Line (9, 9)-(1, 5)
                  Case 7: P(i).Line (1, 5)-(9, 5)
                  Case 8: P(i).Line (1, 1)-(9, 5)
                  Case 9: P(i).Line (1, 1)-(9, 1)
             End Select
         End If
     Next j
End Sub
 
Private Sub Dot()
   Dim i As Integer, j As Integer
   For i = 0 To 5
        P(i).DrawWidth = 1: P(i).DrawStyle = 2
        For j = 1 To 9
             Seg i, j
        Next j
        P(i).DrawWidth = 3: P(i).DrawStyle = 0
   Next i
End Sub