Form 1
-------------------------------------------------------------------------------------------------------------------------------------------------------------

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

--------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub CenterForm(Frm As Form)
With Frm
    	.Top = (Screen.Height - .Height) / 2
    	.Left = (Screen.Width - .Width) / 2
End With
End Sub

------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub MakeBanner(Xpos, YPos As Integer, Title, TitleFont As String, TextSize As Integer, bsBold, bsItalic, bsUnLine, TextColour As Long)
Dim X, Y, I, J As Single

    I = Picture1.ScaleWidth
    J = Picture1.ScaleHeight
    
    Y = 0
    Do While Y < Picture2.ScaleHeight
        X = 0
        Do While X < Picture2.ScaleWidth
            Picture2.PaintPicture Picture1.Picture, X, Y, I, J
            Picture2.FontName = TitleFont
            Picture2.FontBold = bsBold
            Picture2.FontItalic = bsItalic
            Picture2.FontUnderline = bsUnLine
            Picture2.ForeColor = TextColour
            Picture2.FontSize = TextSize         
            TextOut Picture2.hdc, Xpos, YPos, Title, Len(Title)
            X = X + I
        Loop
        Y = Y + J
    Loop
    
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------------

Private Sub Form_Load()
CenterForm Form1                      

  	For I = 1 To Screen.FontCount ¡V 1       
   	       Combo1.AddItem Screen.Fonts(I)      
  	Next
 
 	For J = 10 To 40 Step 2                  
    	Combo2.AddItem J                  
 	Next
 	Combo1.ListIndex = 4                           
 	Combo2.ListIndex = 8                           
 	Picture4.BackColor = vbRed                    
 
End Sub
-----------------------------------------------------------------------------------------------------------------------------------------------------------

Private Sub Command1_Click()
MakeBanner Val(Text3), Val(Text2), Text4, Combo1.Text, Val(Combo2),    
Check1.Value, Check2.Value, Check3.Value, Picture4.BackColor
End Sub

-----------------------------------------------------------------------------------------------------------------------------------------------------------

Private Sub Command2_Click()
SavePicture Picture2.Image, Text1.Text                     
 	MsgBox "Your Banner have been saved to " & Text1.Text 
End Sub

-----------------------------------------------------------------------------------------------------------------------------------------------------------

Private Sub Command3_Click()
   End                                    
End Sub

-----------------------------------------------------------------------------------------------------------------------------------------------------------

Private Sub Command4_Click()
    Form2.Show                       
    Form1.Hide
End Sub

------------------------------------------------------------------------------------------------------------------------------------------------------------

Private Sub Picture3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next 
 	If Button = 1 Then                                       
    	Picture4.BackColor = Picture3.Point(X, Y)          
 		If Err Then Err.Clear
  	End If
 
End Sub

-----------------------------------------------------------------------------------------------------------------------------------------------------------



Form 2

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Private Sub Form_Load()
	Form1.CenterForm Form2      
End Sub

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Private Sub Picture1_Click(Index As Integer)
    Dim picture_selected As String                                                                           
    Form1.Picture1.Picture = Picture1(Index).Picture
End Sub

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Private Sub Command1_Click()
  Unload Form2                           
  Form1.Show                           
End Sub

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++