Option Explicit
Private Sub Command1_Click()
   
End Sub

I maybe jumping the gun but.

A tip, you really shouldn't use the default names for controls, apart from a quick try of something. If the command button does something specific please use a specific prefix to that control name. This makes the code easier to follow.

cmdOpen_Click(), txtUser.Text, lblValue.Caption etc

All these control prefixes can be found in the VB6 Help. If you don't have MSDN help then you must be using an illegal copy of VB6 from a friend. Ask you friend if he has the MSDN help disks, perhaps his is illegal. No you can't download it for free. I'll post a copy of the prefixes if you're stuck.

Its nice to see your using Option Explicit though.

Keith

Now as far as his problem is concerned I'm going to have to dwell on it as I don't have an answer at the moment.

________________________________________________________________ 

"So much to learn. So little time to do it. Wise men know it's later than one thinks"!

Mark's Syntax.Zip    Pause Sub

I don't answer programming questions via PMs. That's what the forum is for! 

OK, somewhere in this thread I think I posted a link to MS Portmon.exe. Find it, run it and see what it receives. Portmon is a powerful tool for MSComm debugging.

________________________________________________________________ 

"So much to learn. So little time to do it. Wise men know it's later than one thinks"!

Mark's Syntax.Zip    Pause Sub

I don't answer programming questions via PMs. That's what the forum is for! 

"So much to learn. So little time to do it. Wise men know it's later than one thinks"!

Mark's Syntax.Zip    Pause Sub

I don't answer programming questions via PMs. That's what the forum is for! 

Keithuk (11/24/2008)

---

Bye gum this topics going on a bit. 55 posts and 6 pages later and its still going that must be a forum record.     

Keith, I was going to ask you if this post was breaking any records! If I had his chip in front of me this would have been over way, way back!!

________________________________________________________________ 

"So much to learn. So little time to do it. Wise men know it's later than one thinks"!

Mark's Syntax.Zip    Pause Sub

I don't answer programming questions via PMs. That's what the forum is for! 

#include <avr/io.h>
#define USART_BAUDRATE 9600 
#define BAUD_PRESCALE (((F_CPU / (USART_BAUDRATE * 16UL))) - 1)
void init(void);
void usart_init(void);
void usart_transmit(unsigned int data);
unsigned int usart_receiver(void);
int main(void)   
{
init(); 
SREG |= _BV(SREG_I);
usart_init();
while(1)
{
usart_transmit(0x03);
} 
}
void init(void)
{
DDRA &=~_BV(PINA6);
PORTA |=_BV(PINA6);
DDRB=0xFF; 
PORTB=0xFF;
}
void usart_init()
{
//UCSRA=(1<<U2X);
UBRRL=BAUD_PRESCALE;
UBRRH=(BAUD_PRESCALE>>8);
UCSRB=(1<<RXEN)|(1<<TXEN);
UCSRC |= (1 << URSEL) | (1 << UCSZ0) | (1 << UCSZ1); 
}
void usart_transmit(unsigned int data)
{
while(!(UCSRA & (1<<UDRE)));
UDR=data;
}

unsigned int usart_receiver(void)
{
while(!(UCSRA &(1<<RXC)));
rec=UDR;
return rec;
}
void USART_Flush( void )
{
unsigned char dummy;
while ( UCSRA & (1<<RXC) ) dummy = UDR;
}